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Vorwort 


Vorwort 


Der Amiga ist bekannt für seine grafischen Fähigkeiten, was auch 
seine Verkaufszahlen belegen. Allerdings wird er noch vom größten 
Teil der Benutzer als Spielecomputer eingesetzt, obwohl das seine 
anderen Stärken nicht in geringster Weise mindert, denn gerade 
das zeichnet ja einen Computer aus. Mit dem Amiga ist man in der 
Lage Spiele zu programmieren, die absolut realistisch wirken, eben 
durch seine hervoragenden grafischen Eigenschaften. Natürlich 
darf die Stereo-Soundqualität nicht vergessen werden. 

Den meisten Benutzern reicht es aber nicht mehr, nur zu spielen. 
Sie wollen vielmehr selbst Spiele nach ihren eigenen Wünschen 
programmieren. Aber richtig gute Spiele lassen sich nicht über das 
Betriebssystem schreiben, da sind schon Kenntnisse der Maschi¬ 
nensprache erforderlich. Hat man die Maschinensprache erlernt, 
fängt das eigentliche Problem erst an, denn das Erlernen der Hard¬ 
wareprogrammierung ist sehr kompliziert. Genau hier setzt dieses 
Buch an. 

Das Buch enthält eine Sammlung von Grafikroutinen, die einfach 
über Parameter die Grafikhardware ansteuern. Damit sind keine 
Hardwarekenntnisse erforderlich. Für die Profis unter ihnen sind 
die Listings der Routinen gut dokumentiert. Alle in diesem Buch 
enthaltenen Routinen können frei in eigene Programme eingebaut 
und vermarktet werden, sind also Public-Domain. 
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Wieso Maschinensprache ? 


Kapitel 1 


Kapitel 1 

Wieso Maschinensprache ? 


Die allererste Frage, die man sich stellen sollte, bevor man an¬ 
fängt ein Spiel zu programmieren ist, in welcher Programmierspra¬ 
che soll dies geschehen? Dabei ist diese Frage genaugenommen 
total überflüßig, denn wenn man ein wirklich gutes Spiel programm¬ 
ieren möchte, so geht dies nur in Maschinensprache. Nur in dieser 
Sprache kann man einen Computer bis ins Letzte ausreizen. Schon 
alleine von der Rechengeschwindigkeit her steht Maschinenspra¬ 
che an erster Stelle, denn stellen Sie sich mal vor Sie wollen meh¬ 
rere Objekte gleichzeitig bewegen, Collisionen abfragen, Hinter¬ 
grundmusik spielen lassen und noch diverse andere Dinge tun. Da¬ 
bei würde jede andere Sprache kapitulieren. Man kennt ja die kläg¬ 
lichen Versuche von Spielen, die in "C" programmiert wurden... 

Deswegen sind alle Routinen und Beispielprogramme in diesem 
Buch in Maschinensprache geschrieben. Dabei wird die Beher- 
schung dieser Sprache vorausgesetzt. Jedoch werden keinerlei 
Vorkenntnisse über die Programmierung von Grafik, Sound etc. 
benötigt. Darauf wird später in den einzelnen Kapiteln eingegangen. 
Dieses Buch wurde also nicht nur für Profis geschrieben, sondern 
ist auch ebenso verständlich für Maschinenspracheanfänger. 
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Wieso Maschinensprache ? 


1.1 Betriebssystem oder Hardware ? 

Als nächstes sollte man sich überlegen, ob man die Routinen vom 
Betriebssystem für sein Spiel verwenden möchte, oder ob eigene 
Routinen über die Hardware geschrieben werden sollen. Die Ent¬ 
scheidung bleibt natürlich jedem selbst überlassen, jedoch steht 
außer Frage, das sein Spiel über die Hardware zu programmieren 
die effektivste Methode ist. Es ist überhaupt nur über die Hardware 
möglich, ein wirklich gutes Spiel zu programmieren, denn das Ami- 
ga-Betriebssystem wurde leider unverständlicherweise in der 
Sprache "C" geschrieben. Deswegen sind die darin enthaltenen 
Routinen auch nicht so schnell, daß man sie für ein gutes Spiel 
verwenden könnte. Jedoch ist der Vorteil auch nicht von der Hand 
zu weisen, kann man doch leicht und schnell über die Routinen des 
Betriebssystem verschiedene Dinge programmieren (z.B. ein Fen¬ 
ster öffnen). 

Deswegen sind in diesem Buch alle Routinen, bei denen es auf 
Geschwindigkeit ankommt, über die Hardware programmiert. Nur 
vereinzelt werden die Routinen des Betriebssystem verwendet, wie 
z.B. für die Textausgabe oder die Lade- Speichervorgänge. 
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Kapitel 2 

Das Betriebssystem (Kickstart) 


Wie schon im vorigen Kapitel erwähnt wurde, ist das Betriebssy¬ 
stem vom Amiga in "C" geschrieben. Und da wir ja unser Spiel 
über die Harware programmieren wollen, müssen wir das System 
ausschalten. Denn sonst könnte es zu unerwünschten Nebeneffek¬ 
ten kommen (Guru meditiert), da das gesamte Amiga-System im 
sogenannten Supervisor-Mode (Überwacher-Modus) läuft. Hinge¬ 
gen läuft unser eigenes Programm im Uservisor-Mode. Dabei wird 
das User-Programm 50 mal in der Sekunde überwacht. Dieses er¬ 
ledigt das System im Rasterinterrupt. Dieser wird immer dann er¬ 
zeugt, wenn der Bildschirm aufgebaut wird. Da dieses bekanntlich 
50 mal in der Sekunde geschieht (50 Hz), wird unser Programm 
auch 50 mal überwacht. Schaltet man das Betriebssystem aus, 
muß beachtet werden, daß nunmehr nicht mehr alle Routinen des 
Betriebssystems verwendet werden können. Auf alle Routinen, die 
mit irgendwelchen Message-Strukturen zu tun haben, muß man lei¬ 
der verzichten. Dieses sind z.B. die Fenster-, Screen-, fast alle 
Exec- und Diskroutinen. Möchte man weiterhin auf diese Routinen 
zugreifen, so muß vorher das Betriebssystem wieder eingeschaltet 
werden. 


2.1 Betriebssystem an / ausschalten 

Da das Betriebssystem seine Überwachungsvorgänge während 
des Rasterinterrupt durchführt und die Interrupts einfach vom User 
nach Wunsch an- bzw. ausgeschaltet werden können, werden wir 
uns diese Tatsache zu Gute kommen lassen. Wir schalten einfach 
alle Interrupts aus und benutzen nur die, die wir auch wirklich nur 
für unser Spiel brauchen. 


5 



Kapitel 2 


Das Betriebsystem (Kickstartt 


Für das An- und Ausschalten der Interrupts existieren in der 
Exec-Library zwei Routinen. Für das Ausschalten ist die Disable () 
-Routine und für das Anschalten die Enable ()-Routine zuständig. 
Beide Routinen brauchen keine Parameter. Hier nochmal beide 
Routinen in Kurzform beschrieben: 


Library: 

Routine: 

Offset: 

Parameter: 

Erklärung: 


exec.library 
Disable () 

-120 = -$78 
keine 

Diese Routine schaltet alle Interrupts aus. 


Library: 

Routine: 

Offset: 

Parameter: 

Erklärung: 


exec.library 
Enable () 

-126 = -$7e 
keine 

Diese Routine schaltet alle Interrupts, die mit der 
Routine Disable () ausgeschaltet wurden, wieder ein. 


Es muß jedoch darauf geachtet werden, daß, wenn man eigene 
Interrupts einschaltet, der Wert des Interruptsregisters zwischen¬ 
gespeichert wird, damit später wieder die alten Interrupts einge¬ 
schaltet werden können. Außerdem muß die Adresse der jeweiligen 
Interruptebene, die man benutzen möchte, auch gerettet werden. 

Es sollte auch eine kleine Verzögerung eingebaut werden, bevor 
die Interrupts ausgeschaltet werden. Damit evtl, der Laufwerksmo¬ 
tor noch auslaufen kann. Unbedingt notwendig ist dies zwar nicht, 
aber so ist wenigstens die Drive-LED nicht die ganze Zeit am 
leuchten. 


Beispiellisting zum Ausschalten des Systems: 
system_aus: 

move.l #600000,dO ; Verzögerungswert 

motor_aus: ; Verzögerungsschleife 

sub.l#1,dO 
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cmp.l#0,d0 
bne motor_aus 

f 

move.l 4,a6 
jsr-120 (a6) 

f 

move.l $6c,oldirqebene 

move.w $dff01c,intena_buf 
move.l #NewlrqRoutine,$6c 

move.w #$7fff,$dfff09a 
mo ve. w #$cO 10,$dff09a 

rts 

oldirqebene: dc.l 0 
intena_buf: dc.wO 


; Disable () 

; alte Interruptebene retten 
(Raster-IRQ) 

; Interruptregister retten 
; eigene IRQ-Routine einhän¬ 
gen 

; alle Interrupts ausschalten 
; z.B.: Copper-IRQ einschal¬ 
ten 

; Puffer für alte Interruptrou¬ 
tine 

; Puffer für alten Wert vom 
Interruptreg. 


Beispiellisting zum Einschalten des Systems: 


system_an: 

ori.w #$8000,intena_buf 
move.w #$7fff,$dffÖ9a 
move.w intena_buf,$dff09a 
move.l oldirqebene,$6c 

move.l 4,a6 
jsr-126(a6) 
rts 


; Set/Clr - Bit setzen 
; alle Interrupts sperren 
; alte IRQs wieder einschalten 
; System-IRQ-Routine wieder 
einhängen 

; Enable 0 


Die beiden Routinen können als Unterroutinen in eigene Program¬ 
me eingebaut werden. Eine genaue Beschreibung der Interruptregi¬ 
ster und Ebenen folgt im nächsten Abschnitt. 
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Das Betriebs ystem (Kickstart) 


2.2 Interrupts - Unterbrechungen 

Wie schon erwähnt wurde, überwacht das System während des 
Rasterinterrupts das Userprogramm, also unser eigenes Pro¬ 
gramm. Der Amiga kennt jedoch noch 13 weitere Interrupts. Es 
kann ein Interrupt erzeugt werden, wenn z.B. Daten von Diskette 
gelesen wurden, ein Signal von der Tastatur empfangen wurde oder 
vom Copper. Die Möglichkeiten sind sehr vielseitig. 

Sie werden sich vielleicht fragen, wozu überhaupt Interrupts in ei¬ 
nem Spiel? Stellen sie sich mal vor, sie wollen einen Timer in ihr 
Spiel einbauen. Um eine genaue Zeitausgabe programmieren zu 
können, müßten sie schon die Timer der Hardware programmieren. 
Dies ist jedoch recht kompliziert. Einfacher gehts, wenn z.B. ein 
Rasterinterrupt erzeugt wird. Da dieser bekanntlich ja 50 mal in der 
Sekunde ausgelöst wird, zählt man einfach im Interruptprogramm 
eine Variable bis 50 rauf. Jetzt ist 1 Sekunde rum, berechnet die 
Zeit neu und gibt sie auf den Bildschirm aus. 

Außerdem muß für eine ruck- und flackerfreie Animation einfach 
ein Interrupt erzeugt werden, wie sie in den folgenden Kapiteln 
noch feststellen werden. 

Welche Interrupts nun auftreten dürfen, wird im INTENA-Register 
festgelegt. Wurde ein Interrupt erzeugt, wird in das Programm ver¬ 
zweigt, dessen Adresse sich in der dazugehörigen Interruptebene 
befindet. Im Interruptprogramm muß dann als erstes der aufgetre¬ 
tene Interrupt zurückgesetzt werden. Dafür ist das INTREQ-Regi- 
ster zuständig. Außerdem muß das Interruptprogramm mit einem 
RTE enden. 

Da es 14 mögliche Interrupts gibt, aber nur 7 Interruptebenen, 
müssen sich mehrere Interrupts eine Ebene teilen. Welcher Inter¬ 
rupt wird aber nun zuerst abgearbeitet? Dazu bekommt jeder Inter¬ 
rupt eine Pseudopriorität zugeteilt. Dabei wird der Interrupt mit der 
höheren Pseudopriorität zuerst abgearbeitet.' 
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Hier nun die Bitbelegung der beiden Register INTENA und IN- 
TREQ. Beide Register haben die selbe Belegung. 

Registeradressen: INTENA - $DFF09A 

INTREQ - $DFF09C 

Beide Register können auch gelesen werden. Dazu exestieren fol¬ 
gende Register. 

Registeradressen zum Lesen: INTENAR = $DFF01C 

INTREQR = $DFF01 E 


Registerbelegung: 

.Bit_ Name _JJE_ Funktion 


15 

SET/CLR 


schreiben/lesen 

14 

INTEN 


Interrupts erlauben 

13 

EXTER 

6 

CIA-B oder Expansion-Portinterrupt 

12 

DSKSYN 

5 

Disksynchronisationswert erkannt 

11 

RBF 

5 

Serieller Portinterrupt 

10 

AUD3 

4 

Audiokanal 3 gibt Daten aus 

9 

AUD2 

4 

Audiokanal 2 ... 

8 

AUDI 

4 

Audiokanal 1 ... 

7 

AUDO 

4 

Audiokanal 0... 

6 

BLIT 

3 

Bitteroperation beendet 

5 

VERTB 

3 

Beginn der vertikalen Austastlücke 

4 

COPER 

3 

Copperprogramm erzeugt Interrupt 

3 

PORTS 

2 

CIA-A oder Expansionsport 

2 

SOFT 

1 

Software-Interrupt 

1 

DSKBLK 

1 

Diskdaten geladen 

0 

TBE 

1 

Ausgabepuffer des seriellen Ports leer 


Die Bitnummer gibt gleichzeitig die Pseudopriorität an. 
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An welcher Adresse im Speicher die Interruptebenen (IE) zu finden 
sind, listet folgende Tabelle auf: 

IE Adresse (in HEX); 

1 $64 

2 $68 

3 $6c 

4 $70 

5 $74 

6 $78 

Beschreibung der Registerbelegung: 

Will man einen Interrupt erlauben, so muß das SET/CLR-Bit(15), 
das INTEN-Bit(14) und das entsprechende Interrupt-Bit gesetzt 
werden. Es soll zum Beispiel der Rasterinterrrupt erlaubt werden. 
Es müssen also die Bits 15, 14 und 5 im INTENA-Register gesetzt 
werden: 

move.w #$c020,$dff09a ; Bits 15, 14 und 5 setzen 

Um einen Interrupt zu löschen, muß man Bit 15 und das dazuge¬ 
hörige Interrupt-Bit löschen und alle restlichen Bits setzen. Es sol¬ 
len zum Beispiel alle Interrupts gelöscht werden: 

move.w #$7fff,$dff09a ; alle Bits, bis auf Bit 15 set¬ 

zen 

Ist ein Interrupt aufgetreten, so muß dieser vom Interruptpro¬ 
gramm zurückgesetzt werden. Dazu muß lediglich das entspre¬ 
chende Interrupt-Bit im INTREQ-Register gesetzt werden. 

Beispiel zum Zurücksetzen des Rasterinterrupts: 

move.w #$0020,$dff09c ; Bit 5 setzen (VERTB) 
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2.3 Copper / Raster- Interrupt 

Nach soviel Theorie wollen wir auch mal ein Beispiel zur Interrup¬ 
terzeugung durchsprechen. Für die Spieleprogrammierung eignet 
sich dafür am besten der Raster (VertB)- oder der Copper-Inter- 
rupt, wobei der Copperinterrupt wohl am besten geeignet ist. 

Als erstes wollen wir den Raster bzw. VertikalBlank (VertB) In¬ 
terrupt besprechen. Um einen solchen Interrupt erzeugen zu kön¬ 
nen, müssen wir ihn erstmal erlauben. Dazu setzen wir die Bits 15, 
14 und 5 im INTENA- Register. Bevor wir jedoch diese Bits set¬ 
zen, sollte vorher das System ausgeschaltet werden. Wie dieses 
zu programmieren ist, wurde bereits schon besprochen. Danach 
sollten alle Interrupts ausgeschaltet werden. Erst jetzt dürfen wir 
die entsprechenden Bits setzen. Außerdem müssen wir noch die 
Adresse unser Interruptroutine in die Adresse $6C (Interruptebene 
3) eintragen. 

In unser Interruptroutine müssen wir dann als erstes das VertB- 
Bit im INTREQ-Register zurücksetzen und alle Daten- und 
Adressregister auf dem Stapel gerettet werden, damit das unter¬ 
brochende Programm wieder fehlerfrei fortgesetzt werden kann. 
Als letztes muß die Routine mit einem RTE enden. 


Hier nun das Beispiellisting als Unterroutine dazu: 


RasterJRQ_ON: 

move.l #600000,dO 
motor_aus: 
sub.l#1,d0 
cmp.l#0,dO 
bne motor_aus 

9 

move.l 4,a6 
jsr-120(a6) 


; Verzögerungs wert 
; Verzögerungsschleife 
; Warten bis DiskMotor aus 


; System auschalten 
; Disable () 
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move.l $6c,oldirqebene 

move.w $dff01c,intena_buf 
move.l #NewlrqRoutine,$6c 

mo ve. w #$7fff,$dff09a 
move.w #Sc020,$dff09a 
rts 

oldirqebene: dc.l 0 
intena_buf: dc.wO 


; alte Interruptebene retten 
(Raster-IRQ) 

; Interruptregister retten 
; eigene IRQ-Routine einhän¬ 
gen 

; alle Interrupts ausschalten 
; Raster-IRQ einschalten 


; Puffer für alte Interruptrou¬ 
tine 

; Puffer für alten Wert vom 
Interruptreg. 


Ab hier neue Interruptroutine — 


NewIrqRoutine: 
move.w #$0020,$dff09c 

movem.l d0-d7/a0~a6,-(sp) 

movem.l (sp)+,d0-d7/a0-a6 
RTE 


; VertB-Bit für RasterlRQ zu¬ 
rücksetzen 

; Daten-Adressregister auf 

Stapel retten 

; hier steht IRQ-Programm 
; Daten-Adressregister vom 

Stapel zurück 

; Interruptprogramm beenden 


Das System benutzt, wie sie mittlerweile bestimmt schon wissen, 
den Rasterinterrupt. Dieser wird ja bekanntlich während der verti¬ 
kalen Austastlücke erzeugt bzw. bevor ein Bild von der Hardware 
aufgebaut wird. Für die Spieleprogrammierung ist es aber besser 
seine Animation ablaufen zu lassen, wenn der Rasterstrahl gerade 
am unteren Bildschirmrand angekommen ist. Diese Methode bringt 
einem mehr Zeit und damit eine ruckfreiere Animation. 


Wie fragen wir jedoch die Position des Rasterstrahls ab? Eine 
Möglichkeit wäre, das VH POS- und VPOS-Register abzufragen 
(Adressen: $DFF006 und $DFF004) und dann durch Schreiben in 
das INTREQ-Register einen Copperinterrupt zu erzeugen. Dieses 
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ist jedoch viel zu unregelmäßig, weil wir das Register von unse¬ 
rem eigenem Programm abfragen müßten. Zudem würde viel zuviel 
Rechenzeit vergeudet werden. Damit können wir diese Methode 
schon einmal vergessen. 

Die andere Möglichkeit wäre den Copper selbst den Interrupt 
auslösen zu lassen. Denn mit dem Copper ist man in der Lage auf 
jede beliebige Rasterzeile zu warten. Wir warten also einfach bis 
der Rasterstrahl am unterem Bildschirmrand angekommen ist und 
setzen mit dem Copper das Copper-Bit im INTREQ -Register, 
denn nur so kann ein Copperinterrupt erzeugt werden. Dazu muß 
folgender Copperbefehl ins Copperprogramm eingefügt werden: 

dc.w $009c,$8010 

Wie der Copper programmiert wird, wird im Kapitel 5 beschrie¬ 
ben. Ansonsten ist der Vorgang identisch mit dem der Raster- 
IRQ-Erzeugung. Es muß lediglich das Bit 5 durch Bit 4 im INTE- 
NA- und INTREQ-Register ersetzt werden. 
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Kapitel 3 

Speicherverwaltung 


Der Amiga verwaltet seinen Speicher dynamisch. Das heißt, ganz 
gleich um welche Daten es sich handelt, sie können überall im 
Speicher abgelegt werden. Dadurch ist es möglich, mehrere Pro¬ 
gramme im Speicher gleichzeitig ablaufen zu lassen. Deswegen 
muß man sich einen Speicher vom System zuweisen lassen, bevor 
man Daten in ihm abiegen kann. Wenn willkürlich Daten im Spei¬ 
cher abgelegt werden würden, könnten zum Beispiel andere Pro¬ 
gramme gelöscht oder Bilder verunstaltet werden. Dies wiederum 
wäre ein gefundenes Fressen für den Guru... 

Das normale 512 KB CHIP-Ram des Amiga 500/2000 befindet 
sich von der Adresse $000000 bis $080000. Wobei jedoch die 
Adressen von $000000 bis $000400 für die Vektoren des Proces¬ 
sors reserviert sind. Diese sollte man meiden zu beschreiben. An¬ 
sonsten meldet sich der Guru. Für Amiga 500 User, die eine Spei¬ 
chererweiterung von 512 KB besitzen, Amiga 2000 User sowieso, 
steht noch der Speicherbereich von $000000 bis $080000 zur Ver¬ 
fügung. Dabei ist zu beachten, daß sich das System nicht merkt, 
welcher Speicher belegt wurde, sondern welcher noch zur Verfü¬ 
gung steht. Der Speicher wird über Listen verwaltet, die miteinan¬ 
der Verbunden sind. Aber auch wenn das System, wie in Kapitel 2 
beschrieben wurde, ausgeschaltet wird, funktioniert die Speicher¬ 
verwaltung noch. In dieser Hinsicht brauchen sie also nichts zu be¬ 
fürchten. 

Es sollte nach Beendigung eines Programmes sämtlicher von 
dem Programm reservierter Speicher wieder freigegeben werden. 
Sonst würde die Speicherkapazität schnell ausgeschöpft sein und 
nichts paßt dann mehr in den Speicher. 
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3.1 Unbestimmten freien Speicher reservieren 

Zum Reservieren und Freigeben von unbestimmtem freien Spei¬ 
cher, stellt uns die Exec-Library zwei Routinen zur Verfügung. Da¬ 
bei handelt es sich um die Routinen ALLOCMEM () zum Reservie¬ 
ren und FREEMEM () zum Freigeben des Speichers. 

Bevor jedoch Speicher reserviert werden kann, muß dem System 
mitgeteilt werden, wie groß und um was für eine Art von Speicher 
es sich handeln soll. Bei der Größe ist zu beachten, daß diese 
durch acht teilbar ist. Wenn nicht, rundet das System die Größe bis 
zum nächsten 8-Byte-Schritt auf. Welche Bedingungen gewählt 
werden können, wird im folgenen beschrieben. 

Code Name _FunKtiOlf- 

$00001 PUBLIC keine Speicherverschiebung möglich 

$00002 CHIP reserviert Chip-RAM 

$00004 Fast reserviert Fast-RAM 

$10000 CLEAR Speicher wird mit Nullen gefüllt 

$20000 LARGEST reserviere größten Speicherblock 


PU B LIC-Bedingung: 

Durch diese Bedingung wird festgelegt, daß der zugewiesene 
Speicher nicht mehr verschoben werden darf. Diese Verschiebung 
ist in der Kickstart-Version 1.2 nicht enthalten. Man sollte aber dies 
für spätere Versionen beachten. 


CHIP-Bedingung: 

Damit wird angegeben, daß es sich bei dem zu reservierenden 
Speicher um CHIP-Speicher handelt, also in den ersten 512 KB 
liegt. Dieser Bereich wird von allen DMA-Kanälen benutzt. Deswe¬ 
gen müssen Daten wie zum Beispiel Grafik, Sound und Disk auf 
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die diese Kanäle zugreifen im CHIP-RAM liegen. Auch wenn sie 
nur 512 KB Speicher besitzen und somit automatisch CHIP-RAM 
reserviert wird, geben sie aus Kompatibilitätsgründen diese Bedin¬ 
gung, sofern erforderlich, an. 


FAST-Bedingung: 

Durch diese Bedingung wird Fast-Speicher reserviert. Dies funk¬ 
tioniert aber nur, wenn eine Speichererweiterung angeschlossen 
ist. 


CLEAR-Bedingung: 

Diese Bedingung gibt an, daß der zu reservierende Speicher vor 
der Zuweisung mit Nullen gelöscht wird. 


LARQEST-Bedingung: 

Gibt an, daß der größte zur Verfügung stehende Speicherblock 
reserviert werden soll. 

Wird keine Angabe darüber gemacht, ob es sich um CHIP- oder 
FAST-Speicher handeln soll, wird zuerst versucht, FAST-Speicher 
zu reservieren, danach erst CHIP-Speicher. 


Die Exec-Routinen AllocMem () und FreeMem (): 

Routine: AllocMem (DO,Dl) (Größe,Code) 

Library: exec.library 
Offset: -198 = -$c6 

Parameter: DO = Gibt die Größe des Speichers an der reserviert 
werden soll. 

Dl = Bedingungs-Code, um was für eine Art von 
Speicher es sich handeln soll (siehe oben). 


17 



Kapitel 3 


Speicherverwaltung 


Rückgabe: in DO = Adresse des reservierten Speicherbereichs. 

Wenn eine Null zurückgegeben wird, konnte der 
Speicher nicht reserviert werden. 

Erklärung: Diese Routine reserviert einen unbestimmten Spei¬ 
cherbereich von angegebener Größe und Bedingung. 

Routine: FreeMem (AI,DO) (Adresse,Größe) 

Library: exec.library 
Offset: -210 = -$d2 

Parameter: Al = Adresse des Speicherblocks, welcher freigege¬ 
ben werden soll. 

DO = Gibt die Größe des Speichers an, den man frei¬ 
geben möchte. 

Erklärung: Diese Routine gibt den Speicherbereich wieder frei, 

welcher zuvor mit der Routine AllocMem () reserviert 
worden ist. 

Manchmal kann es nützlich sein zu wissen, wieviel Speicher ei¬ 
nem noch zur Verfügung steht. Dazu stellt uns die Exec-Library die 
Funktion AvailMem () zur Verfügung: 

Routine: AvailMem (Dl) (Code) 

Library: exec.library 
Offset: -216 = -$d8 

Parameter: Dl = Bedingungs-Code des Speichers, welcher un¬ 
tersucht werden soll. 

Rückgabe: in DO = Größe des Speichers, der noch zur Verfü¬ 
gung steht. 

Erklärung: Diese Routine gibt die Größe des Speichers an, der 
noch zur Verfügung steht, bezogen auf die Bedin¬ 
gung. 
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Zur Verdeutlichung hier nun ein Beispiellisting, das eine Speicher¬ 
größe von 10000 Bytes reserviert. Auf Knopfdruck der linken Mau¬ 
staste wird der Speicher wieder freigegeben. 


Zuweisung von Speicher — 

f 

move.l 4,a6 
move.l #10000,dO 
move.l #$10002,dl 

jsr -198(a6) 

move.l dO,Speicheradresse 
tst.l dO 
bne ok 
rts 
ok: 

btst #6,$bfe001 
bne ok 

9 

move.l 4,a6 
move.l #10000, dO 
move.l Speicheradresse,al 
jsr -210(a6) 
rts 

9 

Speicheradresse: dc.l 0 


; Execbasis 

; Speichergröße=10000 Bytes 
; Bedingung: CHIP und 

CLEAR 
; AllocMem () 

; Adresse speichern 
; auf Fehler testen 

; Programm ende, weil Fehler 

; Linke Maustaste abfragen 


; Execbasis 
; Speichergröße 
; Adresse des Speicherblocks 
; FreeMem {) 

; Programmende 

; Puffer zum Speicher der 
Adresse 
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3.2 Bestimmten freien Speicher reservieren 


Neben der Möglichkeit, sich unbestimmten Speicher zuweisen zu 
lassen, gibt es noch die der bestimmten Speicherzuweisung. Da¬ 
durch ist man in der Lage, sich eine bestimmte Speichergröße ab 
einer gewünschten Adresse zuweisen zu lassen. Dies ist zum Bei¬ 
spiel nötig, wenn ein Programm "absolut" assembliert wurde. Solch 
ein Programm kann dann nur an der dazugehörigen Adresse ge¬ 
startet werden. 

Für diese Art der Speicherzuweisung stellt uns die Exec-Library 
die Funktion AllocAbs () zur Verfügung. 

Funktion AllocAbs (): 

Routine: AllocAbs (DO,AI) (Größe,Adresse) 

Library: exec.library 
Offset: -204 = -$cc 

Parameter: DO = Größe des Speicherblocks, der reserviert wer¬ 
den soll. 

AI = Anfangsadresse des Speicherblocks, welcher 
reserviert werden soll. 

Rückgabe: in DO = Die Adresse, welcher vorher übergeben wur¬ 
de oder eine Null, wenn der Speicherblock nicht zu¬ 
gewiesen werden konnte. 

Erklärung: Diese Routine versucht einen Speicherblock an der 
angegebenen Adresse und von angegebener Größe 
zu reservieren. Bei Mißlingen wird in DO eine Null als 
Fehlermeldung zurückgegeben, ansonsten die Adres¬ 
se, die zuvor auch übergeben wurde. 
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Das DOS-System 


Ein wichtiger Teil des Amiga-Betriebssystem ist das DOS, was 
für Disk-Operating-System steht. Über das DOS werden alle Ein- 
und Ausgabe-Funktionen gesteuert. Wir wollen uns jedoch nur auf 
die Disketten-Operationen beschränken, wobei wir nur auf die Rou¬ 
tinen eingehen werden, mit denen Daten von Diskette gelesen bzw. 
auf Diskette geschrieben werden können. 

Da wir bei den Disketten-Routinen auf das Betriebssystem zu¬ 
rückgreifen, muß vorher natürlich gewährleistet sein, daß das Sy¬ 
stem auch angeschaltet ist. Dieses ist natürlich der Normalfall. Nur 
wenn Sie später bei der Graphikprogrammierung das System aus¬ 
schalten, sollten Sie dieses wieder einschalten, bevor Sie z.B. Da¬ 
ten von Diskette laden. Das Ein- und Ausschalten wäre natürlich 
nicht notwendig, wenn wir unsere eigenen Diskroutinen über die 
Hardware schreiben würden. Dieses ist jedoch unwahrscheinlich 
kompliziert und würde den Rahmen des Buches sprengen. 


4.1 Die DOS-Library 

Die DOS-Library ist die Bibliothek des DOS-Systems, welche alle 
nötigen Routinen für die Ein- und Ausgabe-Funktionen beinhaltet. 
Diese Bibliothek befindet sich fest im Speicher und muß, bevor 
darauf zu gegriffen werden kann, über die Exec-Routine OpenLi- 
brary () geöffnet und sollte nach Beendigung auch wieder ge¬ 
schlossen werden. 
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Hier ein Beispiellisting zum Öffnen und Schließen der Dos-Library: 


DOS: 

move.l 4,a6 
lea dosname.al 
clr.l dO 
jsr -552(a6) 
move.l dO,dosbase 


tst.l dO 
bne ok 
rts 
ok: 


; Exec-Basis 

; Zeiger auf Librarynamen 
; Version = 0 
; OpenLibrary () 

; über diese Basis kann auf 
die DOS-Routinen zurück¬ 
gegriffen werden 

; auf Fehler testen 
; wenn Fehler, dann Ende 


; Hier wird DOS-Funktion ausgeführt 


CloseDOS: 

move.l 4,a6 
move.l dosbase,al 
jsr-414(a6) 
rts 


; DOS-Library wieder schlie¬ 
ßen 

; Exec-Basis 
; DOS-Basis 
; CloseLibrary () 

; Ende 


dosbase: dc.l 0 

dosname: 
dc.b "dos.library",0 

even 


; Speicher für DOS-Basis- 
adresse 

; Dosname in Kleinbuchsta¬ 
ben (Wichtig) 
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4.2 Daten von Diskette laden 

Für das Laden von Daten von Diskette stellt uns das DOS die 
Routine READ () zur Verfügung. Ihr braucht man lediglich die An¬ 
zahl der Daten und die Adresse, wo diese abgelegt werden sollen, 
zu übergeben. Allerdings braucht diese Funktion noch zusätzlich 
die Fileadresse, ab der die Daten von Diskette gelesen werden sol¬ 
len. Zur Lösung dieses Problems stellt uns das DOS eine weitere 
Funktion bereit, welche sich OPEN () nennt. Über diese Funktion 
lassen sich fast alle Ein- Ausgabeoperationen steuern. Wir gehen 
hier allerdings nur auf das Lesen und Speichern von Daten ein. Für 
das Lesen muß dieser Funktion in D2 der Wert 1005 und in Dl die 
Adresse des Filenames, von dem die Fileadresse gewünscht wird, 
übergeben werden. Damit auch später wieder ordnungsgemäß auf 
das File zugegriffen werden kann, muß nach Beendigung des Lese¬ 
vorgangs das File wieder geschlossen werden. Dieses erledigt die 
DOS-Funktion CLOSE (). 

Hier nochmal eine Kurzbeschreibung der eben beschriebenen Rou¬ 
tinen: 

Routine: OPEN (D1,D2) (Modus,Filename) 

Library: dos.library 
Offset: -30 = -$1e 

Parameter: Dl = Wert 1005 für Lesen der Daten von Disk 
D2 = Adresse des Filenames, der mit Null endet 
Rückgabe: in DO = Fileadresse des Files auf Diskette oder Null, 
wenn File sich File nicht auf Diskette befindet. 

Erklärung: Diese Routine gibt die Fileadresse zurück um über 
ihr weitere Funktionen des DOS steuern zu können 
(siehe READ). 


Routine: READ (D1,D2,D3) (Fileadresse,Datenpuffer,Länge) 
Library: dos.library 
Offset: -42 = -$2a 
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Parameter: Dl = Adresse des Files auf Diskette. Liefert uns die 
Routine OPEN () in DO. 

D2 = Adresse des Datenpuffers, in dem die Daten 
abgelegt werden sollen. 

D3 = Anzahl Bytes die geladen werden sollen. 

Rückgabe: in DO = Anzahl Daten, die tatsächlich gelesen wur¬ 
den. Normalerweise ist diese gleich der, die in Länge 
übergeben wurde. 

Erklärung: Diese Routine lädt eine bestimmte Anzahl Daten von 
Diskette in den Speicher. 


Routine: CLOSE (Dl) (Fileadresse) 

Library: dos.library 
Offset: -36 = -$24 

Parameter: Dl = Fileadresse des Files, welches zuvor mit 
OPEN () geöffnet wurde. 

Erklärung: Diese Routine schließt ein File wieder, damit später 
auch ordnungsgemäß wieder darauf zugegriffen wer¬ 
den kann. 

Wie schon erwähnt wurde, muß natürlich die DOS-Library geöff¬ 
net sein, bevor auf die Funktionen zugegriffen werden kann. 

Das folgende Beispiellisting lädt 100 Bytes eines Files von Dis¬ 
kette. Der Filename kann beliebig gewählt werden, ebenso die Län¬ 
ge. 

Daten von Diskette laden — 

Read: 

move.l 4,a6 ; ExecBasis 

clr.l dO ; Version = 0 

lea dosname.al ; Libraryname = DOS 

jsr - 552(a6) ; OpenLibrary () 

move.l dO,dosbase ; DOS-Basisadresse spei¬ 

chern 


tst.l dO 


Das POS-System 


bne ok 

rts 

ok: 

move.l #1005,d2 
move.l #filename,d1 
move.l dosbase,a6 
jsr-30(a6) 
move.l dO,filehd 
tstldO 
beq exitl 

move.l filehd,d1 
move.l #datenpuffer,d2 
move.l #100, d3 
move.l dosbase,a6 
jsr -42(a6) 
move.l filehd,d1 
move.l dosbase,a6 
jsr -36(a6) 
exitl: 

move.l 4,a6 
move.l dosbase,al 
jsr-414(a6) 
rts 

9 

Parameter — 
dosbase: dc.l 0 

dosname: dc.b "dos.library",0 
even 
filename: 
dc.b "c/dir",0 
even 

filehd: dc.l 0 
datenpuffer: blk.b 100,0 

Listingende — 


KapiteLl 


; konnte Library geöffnet 
werden? 

; wenn nicht, Ende 

; Moduswert = 1005 für Lesen 
; Adresse des Filenames 
; DOS-Basisadresse 
; OPEN () 

; Fileadresse speichern 

; Wenn File nicht auf Disk, 
Exitl 

; Fileadresse 
; Puffer für Daten 
; 100 Bytes lesen 
; Dos-Basisadresse 
; READ () 

; Fileadresse 
; Dos-Basisadresse 
; CLOSE () 

; ExecBasis 
; Dos-Basisadresse 
; CloseLibrary () 


; Puffer für DOS-Basisadres- 
se 

; Name der Library 
; gerade Adresse 
; Filename 


; Puffer für Fiieadresse 
; Puffer in dem die Daten ab¬ 
gelegt werden 
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4.3 Daten auf Diskette speichern 

Für das Schreiben von Daten auf Diskette stellt uns das DOS die 
Routine WRITE () zur Verfügung. Ihr wird in D3 die Anzahl der By¬ 
tes und in D2 die Adresse, ab der die Daten liegen, übergeben. Na¬ 
türlich ist auch hier, wie bei der READ () - Funktion, eine File¬ 
adresse notwendig. Woher sollte sonst das DOS wissen, auf wel¬ 
che Tracks die Daten geschrieben werden sollen? Diese bekom¬ 
men wir wiederum von der Funktion OPEN () geliefert, allerdings 
muß statt dem Moduswert 1005 der Wert 1006 übergeben werden. 
Nach Beendigung des Schreibvorganges sollte das File wieder mit 
der Funktion CLOSE () geschlossen werden. 

Zum besseren Verständnis der beiden Funktion folgt wiederum eine 
Kurzbeschreibung: 

Routine: OPEN (D1.D2) (Filename,Modus) 

Library: dos.library 
Offset: -30 = -$1 e 

Parameter: Dl = Filename des Files 

D2 = Wert 1006 für Daten schreiben 
Rückgabe: in DO = Fileadresse des Files auf Diskette oder Null 
bei Fehler. 

Erklärung: Diese Routine liefert die Fileadresse eines Files auf 
Diskette zurück bzw. eine Null als Fehlermeldung. 

Routine: WRITE (D1,D2,D3) (Fileadresse.Datenadresse,Länge) 
Library: dos.library 
Offset: -48 - $30 

Parameter: Dl - Fileadresse, die wo über die Funktion OPEN () 
erhalten. 

D2 =* Anfangsadresse ab der die Daten im Speicher 
beginnen. 

D3 = Anzahl Bytes, die auf Diskette geschrieben 
werden sollen. 

Erklärung: Diese Routine schreibt eine bestimmte Anzahl von 
Bytes auf Diskette. 
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Das entsprechende Beispiellisting darf natürlich auch nicht fehlen. 
Es ist im Prinzip wie das Listing für das Laden von Daten aufge¬ 
baut, nur daß in diesem Fall 100 Bytes auf Diskette geschrieben 
werden. 

Achtung! Sie sollten bei der Auswahl des Filenames darauf ach¬ 
ten, das dieser noch nicht auf der Diskette existiert. Ansonsten 
wird das alte File auf der Diskette überschrieben. 


Daten auf Diskette schreiben — 
Write: 

move.l 4,a6 
clr.l dO 

lea dosname,a1 
jsr -552(a6) 
move.l dO,dosbase 


tst.l dO 
bne ok 

rts 

ok: 

move.l #1006,d2 

move.l #filename,d1 
move.l dosbase,a6 
jsr -30(a6) 
move.l dO,filehd 
tst.l dO 
beq exitl 
move.l filehd,d1 
move.l #datenadresse,d2 
move.l #100,d3 
move.l dosbase,a6 
jsr -48(a6) 
move.l filehd,d1 
move.l dosbase,a6 
jsr -36(a6) 


Exec Basis 
Version = 0 
Library na me = DOS 
Open Library () 

DOS-Basisadresse spei¬ 
chern 

konnte Library geöffnet 

werden? 

wenn nicht, Ende 

Moduswert = 1006 für 

Schreiben 

Adresse des Filenames 
DOS-Basisadresse 
OPEN () 

Fileadresse speichern 

Wenn Fehler, Exitl 
Fileadresse 
Adresse der Daten 
100 Bytes schreiben 
Dos-Basisadresse 
WRITE () 

Fileadresse 
Dos-Basisadresse 
CLOSE () 


27 



Kapitel 4 


Das DOS-System 


exltl: 

move.l 4,a6 
move.l dosbase,al 
jsr-414(a6) 
rts 

9 

Parameter — 
dosbase: dc.l 0 

dosname: dc.b "dos.library",0 
even 

filename: dc.b "Demo",0 
even 

filehd: dc.l 0 

datenadresse: blk.b 100,0 


Listingende -- 


; Exec Basis 
; Dos-Basisadresse 
; CloseLibrary () 


/ Puffer für DOS-Basisadres- 
se 

; Name der Library 
; gerade Adresse 
; Filename 

; Puffer für Fileadresse 
; Puffer in dem die Daten lie¬ 
gen 
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Darstellung von Bildern (Screens) 


Der Amiga steuert die Bildschirm au sgabe über sogenannte Play- 
tields. Ein Playfield wiederum besteht aus mindestens einer Bitmap 
bzw. maximal sechs Bitmaps. Eine Bitmap besitzt die Größe eines 
darzustellenden Bildes, also eines Screens. Besitzt der Screen 
zum Beipiel eine Breite von 320 und eine Höhe von 256, so ist die 
Bitmap genauso groß, denn jeder Pixel (Punkt) auf dem Screen 
spiegelt sich im Speicher wieder. 

Sie werden sich sicherlich fragen, wieso wir maximal 6 Bitmaps 
für einen Screen verwenden können, wo doch eine Bitmap genauso 
aufgebaut ist wie ein Screen. Mit einer Bitmap kann man nur die 
Zustände Punkt gesetzt oder gelöscht festlegen. Woher soll nun 
der Amiga wissen, in welcher Farbe dieser dargestellt werden soll? 
Dazu legt man einfach mehrere Bitmaps gleicher Größe übereinan¬ 
der. So stehen einem max. 32 Farben bei fünf übereinanderliegen¬ 
den Bitmaps zur Verfügung. Die Anzahl Farben läßt sich nach fol¬ 
gender Formel berechnen: Anzahl Farben = 2 hoch Bitmapanzahl. 
Zum Beipiel: 3 Bitmaps * 2 hoch 3 = 8 Farben 

Der Amiga bietet einem eine recht große Auswahl an Möglichkei¬ 
ten, Playfields darzustellen: 

- Farbenanzahl zwischen 2 und 4096 gleichzeitig 

- verschiedene Auflösungen 

- zwei unabhängige Playfields 

- Scrolling 
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Wir werden hier allerdings nur auf die Programmierung eines ein¬ 
fachen Playfields eingehen, denn für die Spieleprogammierung 
reicht dieses völlig aus. Wir werden hier auch nicht auf die kompli¬ 
zierte Beschreibung der Hardwareregister eingehen. Dafür werden 
in den weitere Abschnitten Routinen vorgestellt, die uns diese Ar¬ 
beit abnehmen. Dabei handelt es sich nicht um Systemfunktionen, 
sondern um von mir selbstgeschriebene Routinen, die die Hardwa¬ 
re direkt ansteuern. 


5.1 Die Bitmap 

Das wichtigste Element zur Darstellung eines Bildes ist wohl die 
Bitmap, denn sie enthält die Informationen über Form und Größe 
des Bildes. Diese Informationen werden in Hardwareregistern ge¬ 
speichert, damit der Amiga weiß, wie das Bild auszusehen hat und 
wo es zu finden ist. Diese Methode hat leider den Nachteil, daß 
man selbst nicht mehr auf diese Informationen zugreifen kann. 
Denn in der Regel sind die Hardwareregister nur Schreibregister, 
es ist also nur möglich, einen Wert zu speichern, aber nicht zu le¬ 
sen. 

Damit man aber selbst auch noch auf diese Informationen zugrei¬ 
fen kann, legt man eine Struktur an, in der alle nötigen Daten zur 
Darstellung eines Screens enthalten sind. Diese Struktur wird, 
sinnvollerweise, BitMap-Struktur genannt. 
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Aufbau der Bitmap-Struktur: (Länge = 40 Bytes) 






00 

Word 

BytePerRow 

Anzahl Bytes einer Zeile 

02 

Word 

Rows 

Anzahl Zeilen der Bitmap 

04 

Byte 

Flags 

System-Flags 

05 

Byte 

Depth 

Anzahl der Bitmaps (Tiefe) 

06 

Word 

Pad 

unbenutzt 

08 

Long 

PlanePtrl 

Adresse der 1. Bitmap 

12 

Long 

PlanePtr2 

Adresse der 2. Bitmap 

16 

Long 

PlanePtr3 

Adresse der 3. Bitmap 

20 

Long 

PlanePtr4 

Adresse der 4. Bitmap 

24 

Long 

PlanePtrö 

Adresse der 5. Bitmap 

28 

Long 

PlanePtr6 

Adresse der 6. Bitmap 

32 

Long 

PlanePtr7 

(HAM-Mode) 

Adresse der 7. Bitmap 

36 

Long 

PlanePtr8 

Adresse der 8. Bitmap 

40 

END 

Ende der BitMap-Struktur 


Beschreibung: 

BytePerRow: (Offset 00) 

Enthält die Anzahl Bytes, die eine Zeile einer Bitmap lang ist. Ist 
das Bild zum Beispiel 320 Pixel breit, so beträgt die Anzahl Bytes = 
320/8 = 40 Bytes. 

Rows: (Offset 02) 

Enthält die Höhe der BitMap. Ist das Bild zum Beispiel 256 Zeilen 
hoch, so steht hier der Wert 256. 


Flags: (Offset 04) 

Enthält einige Bitinformationen über die Darstellung. Für den User 
unwichtige Informationen. 
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Depth: (Offset 05) 

Enthält die Anzahl Bitmaps, die der Screen besitzt. Die Anzahl 
richtet sich nach der Anzahl der verwendeten Farben. Bei 32 Far¬ 
ben steht hier der Wert 5. 

PlanePtrX: (Offset 08 bis 36) 

Hier stehen die Adressen der einzelnen Bitmaps. Die PlanePtr 7 
und 8 sind für spätere Erweiterungen vorgesehen. Momentan wer¬ 
den nur die ersten sechs benutzt. Dabei wird die sechste für den 
HAM-Modus verwendet. 

Um nun die BitMap-Struktur mit den entsprechenden Werten zu 
füllen, kann man dieses entweder von Hand machen, was jedoch 
sehr umständlich ist, oder man verwendet die System-Fuktion 
"InitBitMap ()" aus der graphics.library. Jedoch muß ber der Sy¬ 
stem-Funktion erst umständlich die graphics.library geöffnet wer¬ 
den und außerdem müssen danach die PlanePtrX-Adressen noch 
nachträglich eingetragen werden. Zudem ist diese Routine viel zu 
langsam. Deswegen stelle ich ihnen hier eine selbstgeschriebene 
Routine vor, die kompatibel zum System ist, aber einige Funktionen 
mehr enthält und außerdem schneller ist. Diese Routine finden sie, 
wie alle anderen in diesem Buch, auf der beiliegenden Diskette. 

Routine: InitBitMap (A0,D0,D1,D2,D3) 

(BitMap,Depth,Width.Height,Memory) 
Parameter: A0 = Zeiger auf BitMap-Struktur (Puffer von 40 By¬ 
tes) 

DO - Anzahl Bitmaps (Tiefe) 

Dl - Breite in Pixel - Achtung: muß durch 16 teilbar 
sein 

D2 - Höhe der Grafik 

D3 = 1, dann wird auch gleich Speicher für PlanePtr 
reserviert und Adressen in Struktur eingetragen 
D3 - 0, kein Speicher wird für PlanePtr reserviert 
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Rückgabe: DO = 0 , alles OK. 

DO - -1, Breite konnte nicht durch 16 geteilt werden 
DO - -2, Speicher für PlanePtr konnte nicht reser¬ 
viert werden 

Erklärung: Initialisiert eine BitMap-Struktur mit den entsprechen¬ 
den Werten, genau wie die gleichnamige System- 
Routine. Nur ist diese Routine schneller, und außer¬ 
dem kann man, wenn man D3 = 1 setzt, automatisch 
gleich Speicher für die BitMap-Pointer reservieren 
lassen. Diese werden sogleich in die Struktur gespei¬ 
chert. 


— BitMap-Struktur initialisieren und Speicher für Maps 
reserverieren 

■— DO = Depth, Dl = Width, D2 = Height 
•— D3 = Memory, AO=BitMap 


InitBitMap: 
move.w d1,d4 
and.w#15,d4 
tstw d4 
beq ibm_ 1 

move.l #-1,dO 

rts 

ibm_ 1: 

Isr.w#4,d1 

Isl.w#1,d1 

move.w d1,(aO) 

move.w d2,2(a0) 

move.w d0,4(a0) 
tstw d3 


; Breite nach D4 
; Rest ermitteln 
; Rest vorhanden ? 

; Wenn nicht, dann weiter - 
sonst Error 

; Error: Breite nicht durch 16 
teilbar 


; Breite durch 16 teilen 
; mal 2 = Anzahl Bytes einer 
Zeile 

; und in BitMap-Struktur 
speichern 

; Höhe in BitMap-Struktur 
speichern 

; Anzahl Planes speichern 
; Muß Speicher für BitMaps 
reserviert werden ? 
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bne ibm_2 

clr.l dO 
rts 

ibm_2: 

move.w d0,d4 
sub.w#1,d4 
move.l aO,a1 
add.l #8,al 
ibm_clear_loop: 
clr.l (a1)+ 

dbra d4,ibm_clear_loop 
mulu d2,d1 

move.w d0,d2 
move.l d1,d0 
move.l #$10002,dl 
sub.w#1,d2 

add.l #8,aO 
move.l a0,a2 
ibmjoop: 
move.l 4,a6 

movem.l d0-d2/a0-a2,-(sp) 
jsr -198(a6) 
tst.l dO 

bne ibm_l1 

movem.l (sp)+, d0-d2/a0-a2 
ibmjreejoop: 
move.l (a2),a1 
cmp.l#0,a1 
bne ibmJ2 
move.l #-2,d0 
rts 


Wenn nicht, dann Ende, 
sonst weiter 
No Errors 
Ende 

Depth nach D4 
minus 1 
BitMap nach al 
Anfang BitMapPointers 
Pointer-Zeiger 
löschen 

BytePerRow x Höhe = Size 
von einer Map 
D2 = Anzahl Planes 
DO = ByteS ize 
Dl = CHIP + FreeMem 
Anzahl Planes minus 1, we¬ 
gen DBRA 

Anfang BitMap-Zeiger 
auch nach A2 


; AllocMem 

; konnte Speicher reserviert 
werden ? 

; Wenn ja, dann weiter 


; Zeiger auf BitMap holen 
; Null ? 

; wenn ja, dann Ende 
; Error 
; Ende 
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ibm_l2: 
clr.l (a2)+ 

movem.l d0/a2,-(sp) 
move.l 4,a6 
jsr -210(a6) 
movem.l (sp)+,d0/a2 
bra ibm free loop 
ibmjl: 
move.l dO,dS 

movem.l (sp)+,d0-d2/a0-a2 
move.l d5,(a0)+ 
dbra d2,ibm_loop 
clr.l dO 
rts 

Diese Routine bedarf wohl keiner näheren Erläuterung, da sie aus¬ 
reichend dokumentiert ist. 

Wenn die BitMaps nicht mehr gebraucht werden, zum Beispiel bei 
Beendigung des Programms, sollte der von ihnen belegte Speicher 
auch wieder freigegeben werden. Dies kann natürlich durch Be¬ 
rechnen mit den entsprechenden Werten aus der BitMap-Struktur 
jeder selbst programmieren. Das wäre jedoch wieder viel zu um¬ 
ständlich. Deswegen stelle ich ihnen die folgende Routine vor, die 
diese Aufgabe sehr komfortabel erledigt. Der Routine habe ich den 
Namen "ClearBitMapO" gegeben. 

Beschreibung der Funktion ClearBitMap (): 

Routine: ClearBitMap (AO) (BitMap) 

Parameter: AO = Adresse der BitMap-Struktur 
Erklärung: Gibt den mit InitBitMap () reservierten Speicher der 

PlanePtr wieder zurück und löscht danach diese Zei¬ 
ger. 


; FreeMem 


; Zeiger auf BitMap nach D5 
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— Speicher der Maps wieder freigeben in einer 


BitMap-Struktur 
AO - BitMap 
ClearBitMap: 
clr.w dl 

move.b 5(a0),d1 
sub.w#1,d1 
move.w (aO),dO 
mulu 2(a0),d0 
add.l #8,a0 
cbmjoop: 
move.l (aO),a1 
cmp.NfO.al 
beq cbmll 
clr.l (aO)+ 

movem.l dO-d1/aO,-(sp) 
move.l 4,a6 
jsr -210(a6) 

movem.l (sp)+,dO-d1/aO 
cbmjl: 

dbra dl,cbmjoop 
rts 


; Depth nach Dl 

; BytePerRow 
; mal Höhe = MapSize 

; Map-Pointer 

; FreeMem 
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5.2 IFF-Bilder ausgeben 

Sie kennen bestimmt das Malprogramm Deluxe-Paint. Wenn sie 
mit diesem Malprogramm Bilder zeichnen und diese dann auf Dis¬ 
kette abspeichern, kann es von fast jedem anderen Malprogramm 
geladen und weiterbearbeitet werden. 

Das liegt daran, daß all diese Zeichenprogramme die Bilder im 
sogenannten IFF-Standart abspeichern. Dieser "Interchange File 
Format" Standart (IFF), steht für Datenaustausch zwischen ver¬ 
schiedenen Programmen und wurde vom Software Haus Electronic 
Arts entwickelt. Das Prinzip ist eigentlich ganz einfach: Es wird zu 
der eigentlichen Datei (zum Beispiel das Bild) noch zusätzlich ein 
Header mitabgespeichert, welcher die Datei bis ins kleinste Detail 
beschreibt (Höhe, Breite etc.). Den IFF-Standart gibt es nicht nur 
für Grafik, sondern auch für Musik, Text usw. Wir wollen hier aber 
nicht das komplexe IFF-System erläutern. Damit aber auch sie ihre 
selbsterstellten Bilder darstellen können, stelle ich ihnen eine Rou¬ 
tine vor, die diese Aufgabe bewältigt. 

Als erstes müssen Sie das gewünschte Grafikbild in den Speicher 
laden. Danach programmieren sie einen Screen (siehe Abschnitt 
5.9), der genauso groß ist, wie ihr erstelltes Bild. Nun tragen sie 
die Adresse der Bitmap-Struktur von ihrem Screen in AO und die 
Adresse des Bildes in AI ein. Außerdem lassen sie das Adressre¬ 
gister A2 auf einen Puffer von 64 Bytes zeigen. Jetzt rufen sie die 
Routine "PrintlffPic ()" auf. Sofort wird ihr erstelltes Bild in die 
übergebene BitMap gezeichnet. Allerdings in den falschen Farben. 
Die richtigen Farben finden sie jetzt in den 64 Bytes großen Puffer, 
welchen sie vorher in A2 übergeben haben. Einfacher kann man 
wohl ein IFF-Bild nicht darstellen. Ein Beispiel dazu finden sie im 
Abschnitt 5.9. 
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Hier noch einmal die Kurzbeschreibung der Routine PrintlffPic (): 

Routine: PrintlffPic (A0,A1,A2) (BitMap,IffPic.ColorTable) 

Parameter: AO = Adresse der BitMap-Struktur, in welcher das 
Bild dargestellt werden soll. 

Al = Adresse des Iff-Bildes im Speicher. 

A2 - Adresse eines Puffers von 64 Bytes, in dem die 
Farben vom Iff-Pic gespeichert werden. 

Erklärung: Diese Routine stellt ein Iff-Bild in der gewünschten 
BitMap da. Dabei ist zu beachten, daß die Breite, Hö¬ 
he und Tiefe der BitMap-Struktur genausogroß sind, 
wie das IFF-Bild. 

Es folgt das Listing mit Dokumentation der PrintlffPic-Routine: 

PrintlffPic (AO,A 1,A2) (BitMap,lffPic,ColorTable) 
zeichnet ein Iff-Pic in die übergebene BitMap — 

PrintlffPic: 

9 

movem.l a0-a2,-(sp) 

9 

iff-Chunk-Adressen suchen 
move.l a1,pic_buf 
move.i #chunktabelle,a1 
move.l #chunkadresse,a2 

PlsearchO: 
move.l pic_buf,aO 
clr.wdO 

Plsearchl: 
cmp.l ftO,(a1) 
beq Plsearch2 
move.b faO)+,iffchunk 
move.b (a0)+,iffchunk+1 
move.b (a0)+,iffchunk+2 
move.b (a0)+,iffchunk+3 
move.l iffchunk,d6 
move.l (a1),d7 
cmp.l d7,d6 


; Parameter retten 
; IffPic-Adresse speichern 
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beq Plsearch3 
sub.l #3, aO 
bra Plsearchl 
PlsearchOO: 
add.lM.al 
add.im.a2 
bra PlsearchO 
Plsearch3: 
sub.im.aO 
move.l (a2),a4 
move.l a0,(a4) 
bra PlsearchOO 
Plsearch2: 
clr.wdO 


; Anzahl Planes 
; Breite 
; Höhe 

; Parameter wiederholen 


move.l bmhd_chunk,aO 
move.b 16(a0),d0 
sub.w#1,d0 
move.w dO,planes_num 
move.w 8(a0), width 
move.w 10(a0),height 

movem.l (sp)+,a0-a2 


PlanePointer-Adressen errechnen — , 
add.l #8,a0 ; Zeiger auf 1. Bitmappointer 

move.l #planes,a1 ; Bitmappointer-Puffer 

move.w planes_num,dO ; Anzahl Bitmaps 

PIJoop: 
move.w d0,d1 
mulu #4,dl 
move.l (a0,d1),(a1,d1) 
dbra dO, PIJoop 

9 

Iff Farben errechnen und speichern — 
move.l cmap_chunk,aO 
add.l #8,aO 

move.l a2,a1 ; Farbenpuffer nach A1 

move.w #31,d7 ; 32 Farben 
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Plco_loop1: 
clr.w dO 

move.b (aO)+,dO 
and.b #$fO,dO 
Isl.w#4,d0 
move.b (aO)+,dO 
and.w #$OffO,dO 
clr.w dl 

move.b (a0)+,d1 
Isr.b # 4 , dl 
and.b #$Of,d1 
or.b d1,d0 
move.w d0,(a1)+ 
dbra d7,Plco_loop1 

I 

;— Parameter für Entpacker — 
move.l #planes,bitplanezeiger 

move.l bmhd_chunk,aO 
move.b 17(a0),maske 
move.b 18(a0),compression 
clr.w dO 

move.b 16(a0),d0 
move.w dO,anzahlplanes 
move.w 8(a0),picbreite 
move.l body chunk,aO 
add.l tt4,a0 
move.l (aO)+,piclänge 
move.l aO,picadresse 
bsr Pl_decrunch 
rts 

9 

;— Iff-Unpacker-Routine — 
Pl_decrunch: 
clr.l dO 

move.w plcbreite,dO 
Isr.w#3,d0 

move.w dO,width_bytes 


Puffer von PlanePtr-Adres- 
sen 

BMHD-Chunk-Adresse 
MaskenByte setzen 
PackerByte 

Depth 

speichern 

Picbreite 

BOD Y-Chunk-Adresse 
plus 4 
= Piclänge 

AO - Pic-Anfangsadresse 

Pic entpacken 

ENDE 


; Picbreite nach DO 
; durch 8 teilen 
; und speichern 
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move.w anzahlplanes, d2 
move.l bitplanezeiger,a2 
move.l picadresse,aO 
move.l a0,a3 
add.l piclänge,a3 
Plunpjoop: 
cmp.la3,a0 
bge Plunpack_end 
clr.w d3 
Plpicjoopl: 
move.w d3,d4 
Isl.w#2,d4 
move.l (a2,d4),a5 
bsr Plunpack_row 
move.l a5,(a2,d4) 
addq.w#1,d3 
cmp.w d2,d3 

blt Plpicjoopl 
andi.b #1,maske 
beq Plunpjoop 
move.l #mask_dummy,a5 
bsr Plunpack_row 
bra Plunpjoop 

! 

Plunpack_row: 
move.l d2,-(sp) 
move.w width_bytes,d2 
Plunpjoopl: 
tstwd2 

beq Plunpack_row_end 
clr.w dO 

tstb compression 
bne Plunp_comp 
move.w width_bytes,dO 
subq.w #1,d0 
bra PlunpJoop2 
Plunp_comp: 


; Depth nach D2 
; Pufferadresse v. PlanePtr 
; Picadresse nach AO 
;nach A3 

; plus Piclänge = Picende 

; Bild schon entpacked ? 

; wenn ja, dann Ende 
; BitMapzähler 

; D3 nach D4 
; mal 4 

; Zeiger auf Bitmap errechnen 
; und Daten entpacken 
; BitMapposition speichern 
; BitMapzähler plus 1 
; schon eine Reihe aller Maps 
durch ? 

; wenn nicht, dann weiter 
; sonst Maske entpacken 
; wenn vorhanden ? 

; Maskenpuffer 
; entpacken 
; wieder von vorne 


; Depth-Variable retten 
; Zeilenbreite in Bytes 

; schon eine Zeile durch ? 

; Wenn ja, dann nächste 

; Pic gepacked ? 

; wenn ja, dann Unp_Comp 
; sonst Zeilenbreite nach DO 
; minus 1 

; und Bytes übernehmen 
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move.b (aO)+,dO 
bmi Plpacked 

Plunp_loop2: 
move.b (a0)+,(a5)+ 


; Befehlsbyte holen 
; Wenn negativ, dann gepak- 
ked 


; sonst Bytes normal über¬ 
nehmen 

; Zeilenbreite minus 1 
; Schleife bis Anzahl Null 
; Von vorne 


subq.w#1,d2 ; Zeilenbreite minus 1 

dbra dO,Plunp_loop2 ; Schleife bis Anzahl Null 

bra Plunpjoopl ; Von vorne 

Plpacked: 

neg.b dO ; Befehlsbyte negieren 

move.b (aO)+,d1 ; Füllbyte nach dl 

Plunp_loop3: 

move.b d 1, (a5)+ ; Zeile mit 

subq. w #1,d2 ; Füllbyte beschreiben 

dbra dO,Plunp_loop3 ; Schleife 

bra Plunpjoopl ; vor vorne 

Plunpack_row_end: 

move.l (sp)+id2 ; Depth-Variable wiederholen 

Plunpack_end: 

rts ; Ende 

Parameter für Entpacker — 
maske: dc.w 0 
compression: dc.w 0 
anzahlplanes: dc.w 0 
bitplanezeiger: dc.l 0 
picbreite: dc.w 0 
piclänge: dc.l 0 
picadresse: dc.l 0 

Parameter für Programm — 
chunktabelle: dc.l" BMHD"CMAP"BODY",0 
chunkadresse: dc.l bmhd_chunk,cmap_chunk,body_chunk 
iffchunk: dc.l 0 

f 

bmhd_chunk: dc.l 0 
cmap_chunk: dc.l 0 
body_chunk: dc.l 0 
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planes_num: blk.w 1,0 
width_bytes: blk.w 1,0 

f 

width: dc.wO 
height: dc.w 0 
planes: blk.l 10,0 
pic_buf: blk.l 1,0 
mask_dummy: blk.b 128,0 
/ 

Listingende der Routine PrintlffPic () — 


5.3 Hintergrundmaske 

Stellen sie sich mal vor, sie bewegen ein Raumschiff durch eine 
Felsenlandschaft und bei Berührung explodiert es. Wie kann man 
nun so etwas programmieren? Die einfachste Methode ist, von der 
Landschaft bzw. von dem Grafikbild eine Schattenmaske anzule¬ 
gen. Eine Schattenmaske ist genausogroß wie eine Bitmap des 
Grafikbildes (Screen). In diesem Puffer steht das Ergebnis einer 
Oder-Verknüpfung aller Bitmaps eines Screens. Das ist ja auch lo¬ 
gisch, denn wenn auch nur in einer Bitmap ein Punkt gesetzt ist, 
tritt an dieser Stelle eine Collision bei Berührung ein. 


Hintaryrundmanlf q von einem Screen 


Teil aus Bitplane 1 
vom Screen 



Teil aus Bitplane 2 
vom Screen 



Teil aus Hintergrundmaske 
= ODER-Verknuepfung von 
Bitplane 1 und Bitplane 2 



Bitplane 1 ODER Bitplane 2 = Hintergrundmaske 
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Diese Schattenmaske (englisch = ShadowMask) kann man jetzt 
natürlich ganz umständlich über eine Oder-Verknüpfung in Assem¬ 
bler programmieren. Diese Methode wäre aber viel zu umständlich 
und zudem noch viel zulangsam. Einfacher und schneller geht es 
mit dem Blitter. Der Blitter ist ein Co-Prozessor, mit dem ein Da¬ 
tentransfer zwischen maximal 3 Quellen, welche noch auf ver¬ 
schiedene Arten miteinander verknüpft werden können, schnell 
durchgeführt werden kann. Allerdings ist die Programmierung des 
Blitters recht kompliziert. 

Damit aber auch wir unsere Schattenmaske einfach und blitz¬ 
schnell erstellen können, stelle ich Ihnen eine Routine vor, die, wie 
sollte es auch anders sein, diesen Zweck erfüllt. Es handelt sich 
dabei um die Routine "GetBackMask ()". Dieser Routine braucht 
man in AO nur die Anfangsadresse der BitMap-Struktur vom ent¬ 
sprechenden Screen zu übergeben und in AI die Adresse eines 32 
Bytes großen Puffers. Der 32 Bytes große Puffer beinhaltet eine 
ObjektArgs-Struktur. Auf diese Struktur wird im Kapitel 7 einge¬ 
gangen. Sie wird für die Darstellung von Grafikobjekten benutzt. 

Damit ist man in der Lage, kinderleicht Collisionen zwischen ei¬ 
nem Objekt und dem Hintergrund festzustellen. Die Collisionsrouti¬ 
ne, die dieses möglich macht, wird auch im Kapitel 7 beschrieben. 

Kurzbeschreibung der Routine "GetBackMask ()": 

Routine: GetBackMask (A0.A1) (BitMap.ObjektArgs) 

Parameter: AO = Zeiger auf BitMap-Struktur von welcher die 
Schattenmaske angelegt werden soll. 

AI = Anfangsadresse eines 32 Bytes großen Puffers. 
Er enthält die ObjektArgs-Struktur, welche im Kapi¬ 
tel 7 beschrieben wird. 

Rückgabe: DO = 0 , Funktion erfolgreich ausgeführt. 

DO = -1, es konnte nicht genug Speicher für die 
Schattenmaske reserviert werden. 
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Erklärung: Füllt die in AI übergebene ObjektArgs-Struktur mit 
den wichtigsten Werten und reserviert Speicher für 
die Schattenmaske (ShadowMask/CollMask). Diese 
ObjektArgs-Struktur kann dann ganz normal mit der 
Collision () -Routine (Kapitel 7) zur Collision mit an¬ 
deren Objekten herangezogen werden. 

Tip: Wenn man die BitMap-Pointer und die Tiefe in der 

BitMap-Struktur vorher entsprechend manipuliert, 
kann man sogar Coilisionen nur zwischen bestimm¬ 
ten Farbregistern zulassen. 


Listing der Routine "GetBackMask ()": 


ShadowMask/CollMask vom Hintergrund init. 
AO = BitMap; AI = ObjektArgs (32 Bytes) 
GetBackMask: 


move.w (aO),dO 
mulu 2(aO),dO 
move.l #$10002,dl 
movem.l a0-a1,-(sp) 
move.l 4,a6 
jsr-198(a6) 
movem.l (sp)+,a0-a1 
tst.l dO 
bne gbm_ 1 
move.l #-1,d0 
rts 

gbm_1: 

move.l d0,28(a1) 

move.b #1,5(a1) 
clr.l 6(a1) 

move.w 2(a0), 10(a1) 
move.w (a0),d1 
Isr.w#1,d1 
move.w dl, 12(a1) 
move.l d0,a2 


; Byte per Row nach DO 
; mal Höhe = MapSize 
; Chip + ClearMEM 


; AllocMem 


; Error: nicht genug Memory 


Objektargs 


; CollMask ii 
speichern 
; lnit= 1 
; x,y pos = Null 
; Height 
; Byte per Row 


; WordWidth 

; Ziel D und Quelle B nach A2 
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move.w #$0d1c, $dff040 
clr.w $dff042 


move.w #$ffff,$dff044 
move.w #$ffff,$dff046 
clr.w $dff064 
clr.w $dff062 

clr.w $dff066 

clr.l d5 

move.w (a0),d5 
Isr.w#1,d5 
move.w 2(a0),d6 
and.w #$3ff,d6 
Isl.w#6,d6 
and.w #$3f,d5 
add.w d6,d5 
move.b 5(a0),d1 
and.w #$00ff,dl 
sub.w#1,d1 
add.l #8,a0 
gbmjoop: 
move.l (a0)+,$dff050 

move.l a2,$dff054 
move.l a2,$dff04c 

move.w d5,$dff058 

gbm_wait: 
btst#14,$dff002 
bne gbm_wait 
dbra dl,gbmjoop 
clr.l dO 


; BLTCONO: A + B = D 
; BLTC0N1: no Shift-Quelle 
B 

; und aufsteigende Adressen 
; First Mask 
; Last Mask 

; Modulowert von Quelle A 
; Modulowert von Quelle B - 
1 Word 

; Modulowert von Ziel D = 1 
Word 

; Breite in Bytes 
; jetzt in Words 
; Höhe in Pixel 
; Blittersize errechnen 
; D5 = breite in Words 
; D6 = höhe in Pixel 
; D5 ist jetzt Blittersize 
; Anzahl Planes nach Dl 
; Hi-Byte löschen 
; minus 1, wegen DBra 
; erster Map-Pointer 

; Anfangsadresse von Quelle 
A 

; Anfangsadresse von Ziel D 
; Anfangsadresse von Quelle 
B = Ziel D 

; BLTSIZE und Blitteroperati- 
on starten 

; Blitter fertig? 


; No Errors 


rts 

Ende des Listings der Routine GetBackMask () — 
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Diese Routine reserviert Speicher, der natürlich z.B. bei Beendi¬ 
gung des Programmes oder bei Benutzung eines neuen Bildes an 
das System zurückgegeben werden sollte. Für diesen Zweck stelle 
ich ihnen im folgenden die Routine "FreeBackMask ()" vor. Ihr muß 
in AI nur die Adresse der ObjektArgs-Struktur (32 Bytes Puffer) 
übergeben werden, den Rest erledigt sie von selbst. 

Kurzbeschreibung der Funktion "FreeBackMask ()": 

Routine: FreeBackMask (AI) (ObjektArgs) 

Parameter: AI = Adresse der ObjektArgs-Struktur (32 Bytes 
Puffer) in der die Schattenmaske für den Hintergrund 
steht. 

Erklärung: Gibt den ShadowMask-Puffer, der mit der Routine 
"GetBackMask ()" für die Hintergrundmaske reser¬ 
viert worden ist, wieder an das System zurück. 


Listing der Funktion "FreeBackMask {)": 

ShadowMask-Puffer vom Hintergrund wieder freigeben — 

AI = Objektargs (32 Bytes Puffer) 

FreeBackMask: 
move.w 12(a1),d0 
Isl.w#1,d0 
mulu 10(a1),d0 
move.i 28(a1),a2 
clr.l 28(a1) 
move.i a2,a1 
cmp.UtO,a1 
beq fbm end 
move.i 4,a6 
jsr -210(a6) 
fbm_end: 
rts 

Ende des Listing der Funktion FreeBackMask () — 


; WordWidth nach DO 
; mal 2 = Bytes 
; mal Höhe = MapSize 
; CollMask-Zeiger 


; vorhanden ? 


; FreeMem 
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5.4 Der RastPort 

Da wir auf unserem selbstprogrammierten Bildschirm bzw. Bit- 
Map auch Text darstellen wollen, benutzen wir dazu die System¬ 
routinen der Graphics.library. Der Aufwand wäre viel zu groß, um 
für diesen Zweck eigene Routinen über die Hardware zu pro¬ 
grammieren. 

Alle Textroutinen der Graphics.library benötigen als Parameter 
meist immer einen RastPort. Dieser RastPort wird benötigt, damit 
das System weiß, wo und wie, in welcher Form der Text usw. dar¬ 
gestellt werden soll. Dieser RastPort besitzt eine Länge von 100 
Bytes und muß mit der entsprechenden BitMap-Struktur verbunden 
werden, in dem der Text dargestellt werden soll. 

Wir wollen hier nicht ausführlich auf die RastPort-Struktur einge- 
hen, da es für die Textausgabe nicht unbedingt erforderlich ist. 
Doch der Vollständigkeit halber folgt eine tabellarische Kurzbe¬ 
schreibung der RastPort-Struktur: 

‘RastPort-Struktur (Länge = 100 Bytes) 


Offset 

Tvd 

Bezeichnuna 

Beschreibuna 

000 

Long 

Layer 

Zeiger auf ‘Layer'-Struktur 

004 

Long 

BitMap 

Zeiger auf ‘BitMap'-Struktur 

008 

Long 

AreaPtrn 

Zeiger auf das AreaFill-Muster 

012 

Long 

TmpRas 

Zeiger auf ‘TmpRas'-Struktur 

016 

Long 

Areainfo 

Zeiger auf ‘Areal nfo‘-Struktur 

020 

Long 

Gelsinfo 

Zeiger auf ‘Gelslnfo‘-Struktur 

024 

Byte 

Mask 

Schreibmaske (Bitmapmaske) 

025 

Byte 

FgPen 

Farbregisternummer für Vor¬ 
dergrundfarbe 

026 

Byte 

BgPen 

Farbregisternummer der Hinter¬ 
grundfarbe 

027 

Byte 

AOIPen 

Farbregisternummer der Area- 
Fill-Outlinefarbe 
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028 

Byte 

DrawMode 

029 

Byte 

AreaPtSz 

030 

Byte 

LinePatCNT 

031 

Byte 

Dummy 

032 

Word 

Flags 

034 

Word 

LinePtrn 

036 

Word 

CP X 

038 

Word 

CP_Y 

040 

Byte 

Minterms(8) 

048 

Word 

PenWidth 

050 

Word 

PenHeight 

052 

Long 

TextFont 

056 

Byte 

AlgoStyle 

057 

Byte 

TxFIags 

058 

Word 

TxHeight 

060 

Word 

TxWidth 

062 

Word 

TxBaseLine 

064 

Word 

TxSpacing 

066 

Long 

RP-User 

070 

Word 


084 

Long 


092 

Byte 


100 

End 



ZeichenModi (0=Jam1, l=Jam2, 
2«Complement,3==lnvers) für 
Routine ‘SetDrMd ()‘ 

Höhe des AreaFill-Musters (2 A n 

Words)) 

unbenutzt 

Line Draw Pattern Preshift 
verschiedene Kontrollbits 

(FirstDot etc.) 

16 Bits für Linienmuster 
x-Position des Grafikcursors 
y-Position des Grafikcursors 
8 x 1 Byte für Minterms (Funk¬ 
tion unbekannt) 

Cursorbreite 

Cursorhöhe 

Zeiger auf ‘TextFont'-Struktur 
Zeichensatzmodus (Style-Flag) 
textspezifische Flags 
Höhe des Zeichensatzes 
durchschnittliche Zeichenbreite 
Texthöhe ohne Unterlängen 
Zeichenabstand 

Zeiger auf evtuelle Userdaten 
(unwichtig!) 

7 Words reserviert 
2 Longs reserviert 

8 Bytes reserviert 
Ende der Datenstruktur 


Wie aus der RastPort-Struktur zu ersehen ist, muß die Anfangsa¬ 
dresse der BitMap-Struktur ab Offset 4 eingetragen werden. Dies 
erfüllt zum Beispiel folgender Befehl: 

move.l #bitmap,rastport+4 ; Bitmap- in RastPort-Struk¬ 
tur einhängen 


49 


Kapitel 5 


Darstellung von Bildern (Screens) 


Doch bevor wir Text über unseren RastPort darstellen können, 
müssen wir diesen mit den korrekten Startparametern füllen. Für 
diese Aufgabe stellt uns die Graphics.library die Routine "InitRast- 
Port ()" zur Verfügung. Diese Routine braucht lediglich einen Para¬ 
meter: Wir müssen ihr in AI die Adresse unserer RastPort-Struk- 
tur übergeben. 

Routine: InitRastPort (AI) (RastPort) 

Offset: -198 = -$c6 

Library: graphics.library 

Parameter: AI = Adresse von einem 100 Bytes großen Puffer. 
Erklärung: Diese Routine füllt die von uns angelegte RastPort- 
Struktur mit den nötigsten Startwerten. Diese Routi¬ 
ne muß noch mit der BitMap-Struktur verbunden 
werden. Sonst kann kein Text dargestellt werden. 


5.5 Text auf dem Bildschirm ausgeben 

Wir wollen hier nur auf die einfache Textausgabe eingehen. Den 
Text, den wir ausgeben werden, wird immer mit dem aktuellen Zei¬ 
chensatz und mit der aktuellen Farbe dargestellt. Auf alle Routinen 
einzugehen, würde den Rahmen des Buches sprengen. 

In der Graphicsbibliothek befindet sich eine Funktion, welche den 
sinnvollen Namen "TEXT" besitzt. Mit ihr ist es möglich, einen Text 
auf einfache Art und Weise in den aktuellen Parametern, wie Font 
und Farbe, auszugeben. Um jetzt einen Text ausgeben zu können, 
übergeben wir in DO die Anzahl Buchstaben, die der Text lang ist, 
und in AO die Anfangsadresse des Textes. Das allein reicht natür¬ 
lich noch nicht, denn auf welcher Bitmap soll der Text überhaupt 
ausgegeben werden? Deswegen müssen wir zusätzlich im Adress¬ 
register AI die Adresse der RastPort-Struktur übergeben. Jetzt 
können wir die Funktion "TEXT ()" aufrufen und der Text wird aus¬ 
gegeben. 


50 


Darstellung von Bildern (Screens) 


Kapitel 5 


Für einige Anwendungen kann es nützlich sein zu wissen, wie 
lang ein Text in Pixeln ist, damit zum Beispiel bei dessen Ausgabe 
keine Grafik zerstört wird. Die Funktion "TextLength ()", ebenfalls 
aus der Graphicsbibliothek, bietet uns diese Hilfe. Sie besitzt die¬ 
selben Parameter wie die Funktion "TEXT ()". Nur bekommen wir 
nach Aufruf der Funktion im Datenregister DO die Länge des Tex¬ 
tes in Pixeln zurück. 

Wenn wir unseren Text auf diese Art darstellen, würde er immer 
an den aktuellen Koordinaten erscheinen. Diesen Zufallseffekt wol¬ 
len wir natürlich vermeiden. Um unseren Text an festen Koordina¬ 
ten erscheinen zu lassen, verwenden wir die Routine "MOVE ()", 
welche wiederum in der Graphicsbibliothek zu finden ist. Diese 
Funktion setzt den Grafikcursor an die angegebene Position. In das 
Adressregister AI schreiben wir wiederum die Adresse der Rast- 
Port-Struktur und in den Datenregistern DO und Dl die X- und Y- 
Position. Bei der vertikalen Y-Position ist zu beachten, daß die 
Nullposition des Textes mindestens die Höhe des Fonts beträgt. 
Würde man die Y-Position auf Null setzen, wäre der Text auf dem 
Bildschirm nicht sichtbar. Besitzt der Font zum Beispiel eine Höhe 
von acht Pixeln (Topaz-Font), wäre der kleinste Y-Wert, bei dem 
der Text voll erscheinen würde, auch acht. 

Der Übersicht halber hier noch einmal alle drei Funktionen in Kurz¬ 
form auf einen Blick: 

Routine: Text (String,RastPort,Count) (A0,A1,D0) 

Offset: -60 = -$3c 

Library: graphics.library 

Parameter: A0 = Anfangsadresse des Textes 

Al = Anfangsadresse der RastPort-Struktur 

DO = Anzahl der Buchstaben, die ausgegeben werden 

sollen 

Erklärung: Diese Routine gibt einen Text im angegebenen Rast- 
Port aus. 
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Routine: TextLength (String, RastPort,Count) (A0,A1,D0) 

Offset: -54 = $36 

Library: graphics.library 
Parameter: siehe Funktion Text (). 

Rückgabe: DO = Länge des Textes in Pixeln. 

Erklärung: Diese Routine gibt für den angegebenen Text die 

Textlänge in Pixeln im Datenregister DO zurück. 


Routine: Move (RastPort,X,Y) (AI,DO,Dl) 

Offset: -240 = -$f0 

Library: graphics.library 

Parameter: AI = Anfangsadresse der RastPort-Struktur 
DO = X-Position (horizontale) des Textes 
Dl = Y-Position (vertikale) des Textes 
Erklärung: Setzt den Grafikcursor auf die angegebenen Koordi¬ 
naten. Danach kann dann zum Beispiel mit der Funk¬ 
tion "Text ()" ab diesen Positionen Text ausgegeben 
werden. 

Die Funktion Text () hat leider einen Nachteil: die Anzahl Buch¬ 
staben vom Text muß bekannt sein. Viel leichter wäre es, wenn der 
Text mit einem Nullbyte enden könnte und somit automatisch das 
Textende bekannt wäre. Doch wozu haben wir denn einen Compu¬ 
ter? Lassen wir ihn doch einfach die Textlänge berechnen. Für die¬ 
sen Zweck habe ich die einfache Text-Routine ein wenig erweitert, 
so daß sie einen gewünschten Text, der mit einem Nullbyte endet, 
an bestimmten Koordinaten erscheinen lassen können. 

Das folgende Listing erfüllt diesen Zweck. Welche Parameter 
übergeben werden müssen, steht am Anfang des Listings. Natür¬ 
lich können sie diese Routine beliebig erweitern, wie zum Beispiel 
die Erkennung und entsprechender Verarbeitung von Enterzeichen 
(ASCII-Wert= 13). 
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Gibt einen Textauf dem Bildschirm aus, 
der mit einem Nullbyte endet 
Parameter: AO = Text, AI = RastPort, 

A6 = Graphics-Basis 
;— DO = X-Pos., Dl = Y-Position 

PrintText: 
clr.wd2 
move.l a0,a2 
ptjoop: 
tstb (a2)+ 
beqpt loop_end 
add.w~#1,d2 
cmp.w #100,d2 
bne ptjoop 
ptJoop_end: 
tstw d2 
beq pt_end 

movem.l aO-a 1/a6/d2,-(sp) 
jsr -240(a6) 

movem.l (sp)+,a0-a1/a6/d0 
jsr -60(a6) 
pt_end: 
rts 

Listingende — 

Stellen sie sich mal vor, sie haben den ganzen Bildschirm voll mit 
Text und wollen auf Tastendruck eine weitere Textseite darstellen. 
Dazu muß die alte gelöscht werden. Die Grahicsbibliothek stellt 
uns dafür zwar eine Funktion zur Verfügung, doch ist diese nicht 
gerade sehr leistungsfähig. Viel besser geht es mit einer selbst¬ 
geschriebenen Routine. Solch eine Routine folgt weiter unten, wel¬ 
che rein über die Hardware läuft und außerdem zusätzliche Mög¬ 
lichkeiten beinhaltet. Diese Routine habe ich den Namen FillBit- 
Map() gegeben. Ihr kann im Datenregister DO ein 16-Bit großes 
Muster übergeben werden, mit dem die BitMap gefüllt werden soll. 
Übergibt man den Wert Null, so wird der Bildschirm gelöscht. 


; Zähler für Anzahl Zeichen 


; Max. 80 Zeichen 


; Kein Text ? 

; Parameter retten 
; MOVE () - Position setzen 
; Parameter holen 
; TEXT () - Text printen 
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Routine: FillBitMap (DO,AI) (Muster,BitMap) 

Parameter: DO = Füllmuster (16 Bit bzw. 1 Word groß), mit dem 
die BitMap gefüllt werden soll. 

AI = Adresse der BitMap-Struktur 

Erklärung: Diese Routine füllt eine Bitmap auf die AI zeigt, mit 
einem wordgroßen Muster, welches in DO übergeben 
wird. Die BitMap darf maximal die Ausmaße 
1024 x 1024 haben. 


Routine zum Füllen der Bitmap 
DO = FillMuster, A1 = BitMap 
FillBitMap: 
move.i #$dff000,a6 
move.w d0,$74(a6) 
move.i #$01f00000,$40(a6) 
move.i #- 1,$44(a6) 

clr.l $64(a6) 
move.w (a1),d5 
lsr.w#1,d5 
move.w 2(a1),d6 
and.w #$3ff,d6 
Isl.w#6,d6 
and.w #$3f,d5 
add.wd6,d5 
clr.w dO 

move.b 5(a1),d0 
subq #1,d0 
add.l#8,a1 
fbmapjoop: 
move.i (a1)+,$54(a6) 
move.w d5,$58(a6) 


mit dem Blitter 


Fillmuster 

USE A und D1,Minterm:A=D 
First/Last Mask (alle Bits 
übernehmen) 

Modulowert von Quelle A 
Breite in Bytes 
jetzt in Words 
Höhe in Pixel 
Blittersize errechnen 
D5 = breite in Words 
D6 = höhe in Pixel 
D5 ist jetzt Blittersize 


; Tiefe 
; minus 1 


; Anfangsadresse von Ziel D 
; BLTSIZE und Biitteroperati- 
on starten 


fbmap_wait: 

btst #14,$2(a6) ; Warten bis Blit fertig 

bne fbmap_wait 
dbra dO,fbmapjoop 

rts Listingende — 
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5.6 Der Copper 

Der Copper ist ein Co-Prozessor, der neben dem 68000er Pro¬ 
zessor zusätzlich programmiert werden kann. Der Copper besitzt 
ein eigenes Programm, welches er abfährt. Dabei richtet er sich 
genau nach dem Bildschirmaufbau, was zur Folge hat, daß er nur 
50 mal in der Sekunde sein Programm abfährt. Außerdem kennt er 
auch nur drei Befehle. Diese sind der Move-, Wait- und Skip-Be¬ 
fehl, wobei letzterer kaum Anwendung findet. 

Der Copper wird eigentlich nur für die Darstellung von Bildern ge¬ 
braucht, damit die Hardwareregister, in denen die Adressen der 
Bitmaps ständig hochgezählt werden, am Ende auch wieder zum 
richtigen Zeitpunkt auf den Anfangswert gesetzt werden. Denn 
sonst würde ständig ein anderes Bild erscheinen. Dieser Flackeref- 
feckt ist ihnen bestimmt schon mal bei einigen Abstürzen (Guru...) 
aufgefallen. 

Mit dem Copper kann man aber auch durch geschickte Program¬ 
mierung die 32 Hardwarefarbregister mehrmals benutzten, ver¬ 
schiedene Auflösungen auf einmal, Interrupt, Farbspielerein usw. 
erzeugen. Erst durch den Copper ist das System in der Lage, meh¬ 
rere Screens zu erzeugen und diese überlappen zu lassen. 


Austastluecke 






eigentlicher 

AMIGA Screen 



Nomal von 

Zeile 0 bis 256 




Noraal ca. 
Zeile 26 


Hintergrund 

färbe 


Nomal ca. 
1 Zeile 282 
Zeile 312 
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5.7 Die Copperliste 

Wie schon erwähnt wurde, kennt der Co-Prozessor nur drei Be¬ 
fehle. Diese sind der Move-, Wait- und Skip-Befehl. Das Programm 
für den Co-Prozessor nennt man Copperlist. In dieser Liste liegen 
die Befehle direkt hintereinander, wobei jeder Befehl aus zwei 16 
Bit-Werten besteht. 


Der MOVE-Befehl: 

Format: dc.w Customregister.Wert 

Mit dem Move-Befehl kann man einen 16-Bit-Wert in ein Hardwa¬ 
reregister übertragen. Dabei handelt es sich um ein Customchip- 
Register. Zur Verfügung stehen einem die Hardwareregister von 
$DFF080 bis $DFF1BE. Setzt man zusätzlich das COPCON-Regi- 
ster ($DFF02E) auf 1, ist man in der Lage, auf die Register von 
$DFF040 bis $DFF07E zuzugreifen. Damit besteht die Möglichkeit, 
über eine Copperliste den Blitter zu programmieren. 

Den MOVE-Befehl kann man daran erkennen, daß im ersten Be¬ 
fehlswort (16-Bit-Wert) das Bit 0 = 0 ist. Außerdem enthält dieses 
Befehlswort die Registeradresse, die mit dem zweiten Befehls¬ 
wort geladen werden soll. Bei den Registeradressen wird die Ba¬ 
sisadresse der Customchips ($DFF000) weggelassen. Es wird nur 
der Offset ins erste Befehlswort eingetragen. 

Beispiel: dc.w $180,1000 

Bei diesem Beispiel wird in das Hintergrundfarbregister $DFF180 
der Farbwert 1000 eingetragen. Um das Bit 0 im ersten Befehls¬ 
wort braucht man sich nicht kümmern, da die Customchips alle auf 
geraden Adressen liegen und somit Bit 0 immer Null ist. 
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Der Wait-Befehl: 

Format: dc.w Rasterzeile,Maske 

Mit dem Wait-Befehl ist man in der Lage, auf eine beliebige Ra¬ 
sterstrahlposition zu warten. Wird ein Wait-Befehl in der Copperli¬ 
ste erreicht, dann vergleicht der Copper den angegebenen Wert mit 
der aktuellen Rasterposition. Ist der Rasterstrahl schon weiter, so 
wird in der Copperliste der nächste Befehl bearbeitet. Ansonsten 
wird so lange mit der Bearbeitung gewartet, bis die Rasterposition 
erreicht wurde. 

Das zweite Befehlsword enthält die dazugehörige Maske, denn 
nur wenn ein Maskenbit und das dazugehörige Positionsbit gesetzt 
sind, wird es zum Vergleich mit der Rasterstrahlposition herange¬ 
zogen. Die Bitbelegung der beiden Befehlsworte ist folgende: 

Befehlsword 1: 


Bit: 

15 

14 

13 

12 

11 

10 

09 

08 


VP7 

VP6 

VP5 

VP4 

VP3 

VP2 

VP1 

VP0 

Bit: 

07 

06 

05 

04 

03 

02 

01 

00 


HP8 

HP7 

HP6 

HP5 

HP4 

HP3 

HP2 

1 

Befehlsword 2: 







Bit: 

15 

14 

13 

12 

11 

10 

09 

08 


BFD 

VM6 

VM5 

VM4 

VM3 

VM2 

VM1 

VM0 

Bit: 

07 

06 

05 

04 

03 

02 

01 

00 


HM8 

HM7 

HM6 

HM5 

HM4 

HM3 

HM2 

0 


VP = Vertikale Rasterstrahlposition 
HP = Horizontale Rasterstrahlposition 
VM = Vertikale Maskenbits 
HM = Horizontale Maskenbits 
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Den Wait-Befeh! erkennt man daran, daß im ersten Befehlsword 
das Bit 0 auf 1 und im zweiten Befehlsword auf 0 ist. 

Wie schon aus dem ersten Befehlsword ersichtlich wird, stehen 
einem für die vertikale Rasterstrahlposition nur acht Bits (VP7 bis 
VPO) zur Verfügung, wodurch nur ein maximaler Wertebereich von 
0 bis 255 erreicht werden kann. Hingegen gibt es aber 313 mög¬ 
liche Zeilen. Will man jetzt auf eine Rasterzeile ab 256 warten, so 
muß man erst mit einem Wait-Befehl auf die Zeile 255 warten und 
danach unter Vernachlässigung des 9. Bits auf die gewünschte Zei¬ 
le. 

Für die horizontale Rasterposition existieren sogar nur 7 Bits, 
was 112 mögliche Positionen zuläßt. Damit läßt sich die horizontale 
Koordinate nur in Viererschritten angeben. 

Damit der Copper weiß, wann die Copperliste zu Ende ist, wird 
am Schluß jeder Copperliste mit einem Wait-Befehl auf eine un¬ 
mögliche Rasterposition gewartet. Der folgende Wait-Befehl erfüllt 
diese Bedingung: 

dc.w $FFFF,$FFFE 

Nach diesem Wait-Bedingung fährt der Copper sein Programm 
wieder von vorne ab. 


Der Skip-Befehl: 

Format: dc.w Rasterzeile,Maske 

Der SKIP-Befehl ist genauso aufgebaut wie der WAIT-Befehl, nur 
daß das Bit 0 in beiden Befehlswörtern auf 1 ist. Der Skip-Befehl 
prüft, ob die angegebene Rasterposition kleiner der tatsächlichen 
ist. Ist dieses der Fall, so überspringt der Copper den nächsten 
Befehl in der Copperliste, andernfalls fährt er mit dieser fort. Damit 
lassen sich bedingte Verzweigungen simulieren. Dieser Befehl wird 
aber so gut wie nie benutzt. 
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Initialisieren und Starten einer Copperliste 

Hat man jetzt seine Copperliste ordnungsgemäß aufgebaut, so 
wird die Anfangsadresse dieser in die Hardwareregister $DFF080 
und $DFF082 geschrieben. Das kann mit einem MOVE.L -Befehl 
erledigt werden. Damit jetzt auch unsere Copperliste gestartet 
wird, schreiben wir einen X-beliebigen Wert in das Hardwareregi¬ 
ster $DFF088. 


Hier ein Beispiel: 


move.l #copperlist,$dff080 

clr.w $dff088 

rts 

Copperliste: 
dc.w $180,0 
dc.w $ffff,$fffe 


; Adresse der Copperliste 
; Copperliste starten 


; MOVE 

; Ende der Copperlist 


Um jetzt auch wieder auf die alte Copperliste zurückschalten zu 
können, brauchen wir deren Adresse. Die finden wir in der Gra- 
phicsbasis ab Offset 38. 


Beipiel zum Zurückschalten auf die alte Copperliste: 


Old_Copperlist: 
move.l gfxbase,aO 

move.l 38(a0),$dff080 

clr.w $dff088 
rts 


; Basisadresse der gra- 
phics.library 

; Adresse der alten Copperli¬ 
ste 

; und starten 


Natürlich darf nicht vergessen werden, den Copper-DMA anzu¬ 
schalten. Aber dies können wir hier vernachlässigen, da dieser im¬ 
mer angeschaltet ist. Nur wenn wir ihn ausschalten, sollten wir die¬ 
ses beachten, wenn wir eine Copperliste verwenden wollen. 
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5.8 Copperroutinen 

Bevor überhaupt ein Bild über den Rasterstrahl erscheinen kann, 
muß bekannt sein, wo er anfangen und wo er mit seiner Arbeit en¬ 
den soll, außerdem wie groß das eigentliche "Fenster" ist, in dem 
die Bitmap über den Rasterstrahl dargestellt wird. Ihnen ist be¬ 
stimmt das Preferencesprogramm bekannt, mit dem eine Verschie¬ 
bung mit der Maus, des Screens innerhalb eines bestimmten Rau¬ 
mes möglich ist. Nur die eigentliche Fenstergröße ist nicht änder¬ 
bar. 

Für das Setzen des Anfangs- und Endpunktes, nach dem der Ra¬ 
sterstrahl dann seinen Verlauf nimmt, sind die Customregister 
DIWSTRT ($DFF08E) und DIWSTOP ($DFF090) verantwortlich. 
Das DIWSTRT-Register ist für den Anfangspunkt und das DIW- 
STOP-Register für den Endpunkt zuständig. Für die Anfangs- und 
Endpunkte zur Darstellung des eigentlichen Bitmap-Tensters", 
sind die Customregister DDFSTRT ($DFF092) und DDFSTOP 
($DFF094) vorhanden. 

Die Beschreibung dieser Register ist sehr kompliziert und hier 
wird deswegen auch nicht weiter darauf eingegangen. Damit wir 
aber diese Register korrekt initialisieren können, stelle ich Ihnen 
hier Beispielwerte vor, mit denen die Register meistens geladen 
werden. 

DIWSTRT - $3081 
DIWSTOP = $30C1 
DDFSTRT = $0038 
DDFSTOP = $00D0 

Beispiellisting: 

move.w #$3081 ,$dff08e 
move.w #$30c1 ,$dff090 
move.w #$0038,$dff092 
move.w #$00d0,$dff094 
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oder als Copperliste: 


dc.w $8e,$3081 

; MOVE 

dc.w $90,$30c1 

; MOVE 

dc.w $92,$0038 

; MOVE 

dc.w $94,$00d0 

; MOVE 


Aber das alleine reicht, wie kann es auch anders sein, nicht zur 
Darstellung eines Bildes. Denn woher soll der Amiga wissen, ab 
welcher Adresse die Bitmap im Speicher liegt, welcher Grafikmo¬ 
dus vorliegt usw.? Die Customregister, die dafür zuständig sind, 
müssen vor der Darstellung mit den dazugehörigen Werten geladen 
werden. Da wir uns aber nicht mit den komplizierten Hardwareregi¬ 
stern herumschlagen wollen, stelle ich an dieser Stelle zwei Routi¬ 
nen vor, die diese Aufgaben kinderleicht bewältigen. 

Die erste Routine, die sich InitColor () nennt, initialisiert die Farb- 
register des Amiga mit den gewünschten Farben. Dazu muß in der 
Copperliste ein Puffer von 128 Bytes vorhanden sein, der nach 
Aufruf der Routine mit den dazugehörigen MOVE-Befehlen für die 
Farbregister gefüllt wird. Diese Routine sollte vor Inbetriebnahme 
der Copperliste einmal aufgerufen werden, damit die richtigen MO- 
VE-Befehle schon einmal in der Copperliste vorhanden sind. Da¬ 
nach kann diese Routine so oft aufgerufen werden, wie man möch¬ 
te bzw. so oft man die Farben ändern möchte. 

Die zweite Routine, die sich InitCopperMap () nennt, initialisiert 
die wichtigsten Customregister, die für die Darstellung eines 
Screens erforderlich sind. Diese Funktion benötigt einen 60 Bytes 
großen Puffer, in dem nach Aufruf die dazugehörigen MOVE-Be- 
fehle abgelegt werden können. Audi diese Routine sollte vor dem 
Starten der Copperliste, aus denselben Gründen, wie bei der Funk¬ 
tion InitColor (), einmal aufgerufen werden. 
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Routine: InitColor (A0,A1) (ColorTable,Copperpuffer) 

Parameter: AO = Zeiger auf einen Puffer von 32 Words in dem die 
Farbwerte für die 32 Farbregister stehen. 

AI = Zeiger auf einen 128 Bytes großen Puffer, in¬ 
nerhalb der Copperliste, in den die 32 Farben kopiert 
werden. 

Erklärung: Kopiert die 32 Farben, auf die ColorTable zeigt, in 

den 128 Bytes großen Copperpuffer und erzeugt auch 
die dazugehörigen MOVE-Befehle. 

Achtung! - Diese Routine beim ersten Mal vor dem 
Aktivieren der Copperliste aufrufen, damit die Farbre¬ 
gister ($180 bis ...) schon einmal in der Copperliste 
enthalten sind. Danach kann man diese Routine je¬ 
derzeit wieder aufrufen und damit die Farben ändern. 

Routine: lnitCopperMap(A0,A1,D0) (BitMap,Copperpuffer,Modus) 

Parameter: AO = Zeiger auf BitMap-Struktur 

AI = Zeiger auf einen 60 Bytes großen Puffer, inner¬ 
halb der Copperliste, in dem die Register kopiert 
werden. 

DO = Grafik-Modus: 

= $8000 für Hires 
= $800 für HAM (Hold and Modify) 

= $400 für DualPlayField 
= $4 für Interlace 
= $0 für Normal 

Erklärung: Setzt die wichtigsten Startwerte zum aktivieren der 

Grafik. Es werden die Customregister BPL1MOD, 
BPL2MOD, BPLCONO und die BitMap-Pointer mit 
den entsprechenden Werten gefüllt. Diese Register 
werden dann in den 60 Bytes großen Puffer, inner¬ 
halb der Copperliste, kopiert. ' 

Achtung! - siehe Achtung! bei InitColor (). 

Achtung! - Wir verwenden in diesem Buch nur den 
Normalmodus, weil die anderen einer weiteren Erklä¬ 
rung bedürfen. Sie sind für die Spieleprogrammierung 
nicht besonders geeignet. 
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Hier jetzt noch die beiden Assemblerlistings zu den Routinen: 

ColorMap in CopperListe übertragen 
AO = ColorTable; AI = CopperPuffer 
InitColor: 

move.w #$180,dl ; erstes Farbregister 

move.w #31,dO ; Anzahl Farben 

icjoop: 

move.w d1,(a1)+ ; Farbregister in CopperList 

move.w (a0)+,(a1)+ ; dann der Farbwert in Cop¬ 

perList 

add. w #2,dl ; nächstes Farbregister 

dbra dO,icjoop 

rts 

Listingende — 


BitMap-Pointer in CopperList übertragen 
AO = BitMap; AI = CopperPuffer; DO = Modus 
InitCopperMap: 


move.w (a0),d1 
sub.w #40,dl 
cmp.w #$8000, dO 
bne icm_ 1 
sub.w #40, dl 

icm_ 1: 

cmp.w #$04, dO 
bne icm_2 
sub.w #40,dl 

icm_2: 

move.w #$0108, (a1)+ 
move.w dl,(a1)+ 

move.w #$010a,(a1)+ 
move.w dl,(a1)+ 
move.b 5(a0),d1 
Isl.w#8,d1 


; Bytes pro Zeile nach Dl 

; minus 40 Bytes (320 Pixel) 

; Modus = Hires ? 

; nochmal minus 40 Bytes 
(insgesammt -640 Pixel) 

; Modus = Interlace ? 

; auch minus 40 Bytes (ins¬ 
gesammt -640 Pixel) 

;B PLI MOD 

; Modulo-Wert ungerade Pla¬ 
nes 

; BPL2MOD 

; Modulo-Wert gerade Planes 

; Depth nach Dl 

; Korrekten 
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Isl.w#5,d1 
Isr.w#1,d1 
add.w #$0200,d1 
add.wdO.dl 
move.w #$0100,(a1)+ 
move.w d1,(a1)+ 
moveq #5,d0 
move.w #$00e0,d1 

add.l#8,a0 
icmjoop: 
move.w d1,(a1)+ 
move.w (a0)+,(a1)+ 
add.w #2, dl 
move.w d1,(a1)+ 
move.w (a0)+,(a1)+ 
add.w #2, dl 
dbra dO,icmjoop 
rts 

Listingende — 


Depth-Wert 
ermitteln 
Coior setzen 
Modus setzen 
BPLCONO 
setzen 

max. Tiefe minus 1 

Hi-Word vom ersten Map- 

Pointer 

Erster Pointer-Zeiger 

Hi-Word vom Pointer 
setzen 

Lo-Word ermitteln 

und 

setzen 

Hi-Word ermitteln 


Damit das ganze auch besser verstanden wird, folgt nun noch ein 
Beispiellisting, das eine Copperliste korrekt initialisiert. 


■— Startet eine Copperlist und auf rechte Maustaste 
■— wird Programm beendet und alte Copperlist 
eingeschaltet 


start_ copperl ist: 
lea gfxname.al 
clr.ldO 
move.l 4,a6 
jsr -552(a6) 
move.l dO.gfxbase 

9 

lea colortable.aO 
lea colorpuffer.al 
bsr initcolor 


; Libraryname 
; Version = Null 
; Execbase 
; OpenLibrary () 

; graphics.basis 

; Zeiger auf Farbtabelle 
; Zeiger auf Copperpuffer 
; Farben initialisieren 
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lea bitmap,aO 

lea copperpuffer,al 

clr.wdO 

bsr initcoppermap 
move.l ttcopperl ist, $dff080 
clr.w $dff088 
wait: 

btst #10,$dff016 
bne wait 

move.l gfxbase.aO 
move.l 38(a0),$dff080 
clr.w $dff088 

r 

move.l gfxbase,a1 
move.l 4,a6 
jsr-414(a6) 
rts 

f 

Parameter — 
gfxbase: dc.l 0 

gfxname: dc.b "graphics.library",0 
even 

bitmap: blk.b 40,0 
colortable: blk.w 32,1000 


; Zeiger auf BitMap 
; Zeiger auf Copperpuffer 
; Modus = Normal 
; Wichtigsten Werte setzen 
; Neue Copperlistadresse 
; und Copperliste starten 

; rechte Maustaste gedrückt ? 

; Graphics.basis 
; alte Copperlistadresse 
; und starten 

; graphics.basis 
; Execbasis 
; CloseLibrary [) 


copperlist: 
dc.w $8e,$3081 
dc.w $90,$30c1 
dc.w $92, $38 
dc.w $94,$d0 
colorpuffer: blk.b 128,0 
copperpuffer: blk.b 60,0 

dc.l $fffffffe ; Ende der Copperlist 

9 

;— Listingende — 
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5.9 Einen Screen (Bild) programmieren 

ln diesem Abschnitt werden wir endlich dazu übergehen, mit un¬ 
serem bisherigen Wissen, einen Screen über die Hardware zu pro¬ 
grammieren. Als erstes folgt das Assemblerlisting. Darauf folgt die 
ausführliche Beschreibung. An dem Listing werden sie schon mer¬ 
ken, wie kinderleicht es ist, einen Screen zu programmieren. 

Das Listing erstellt einen Screen und läßt darauf einen Text er¬ 
scheinen. Auf Druck der rechten Maustaste wird auf die alte Cop¬ 
perliste zurückgeschaltet und damit das Programm beendet. 


— Erzeugt einen Screen über die Hardware 

— Printet einen Text und auf rechte Maustaste erscheint 

— alte Copperliste und Programm wird beendet 

— Programmname = Display 


move.l 4, aß 
lea gfxname,a1 
clr.l dO 
jsr -552(a6) 
move.l dO.gfxbase 

t 

lea rastport,a1 
move.l gfxbase,a6 
jsr -198(a6) 

f 

lea bitmap.aO 
move.l #3, dO 
move.l #320,dl 
move.l #256,d2 
move.l #1,d3 
bsr initbitmap 

f 

lea bitmap,aO 
lea ra$tport,a1 


; ExecBasis 
; Libraryname 
; Version = 0 
; Open Library () 

; graphics.basis 

; RastPort-Struktur 
; graphics.basis 
; InitRastPort () 

; BitMap-Struktur 
; Depth = 3 
; 320 breit 
; 256 hoch 

; Speicher reservieren 
; BitMap init. 

; BitMap-Struktur 
; RastPort-Struktur 
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move.l a0,4(a1) 

; BitMap in RastPort einhän¬ 
gen 

9 

lea colortable,aO 
lea colorpuffer.al 
bsr initcolor 

; Farbtabelle 
; Copperpuffer 
; Farbregister init. 

r 

lea bitmap.aO 
lea copperpuffer,al 
clr.l dO 

bsr initcoppermap 

; BitMap-Struktur 
; Copperpuffer 
; Modus = Normal 
; Customregister init. 

9 

move.l #copperlist,$dff080 
clr.w $dff088 

; Copperlistadresse 
; Copperliste starten 

9 

move.w #$20,$dff096 
move.l #spritedatas,$dff120 

; Sprite-DMA aus 
; Sprite 0 (Mauszeiger) aus 

9 

lea demotext,aO 
lea rastport,a1 
move.l gfxbase,a6 
clr.l dO 
move.Ut20,d1 
bsr printtext 

; Textadresse 
; RastPort-Struktur 
; graphics.basis 
; X-Position 
; Y-Position 
; Text printen 

9 

Maustaste abfragen -- 
main: 

btst #10,$dff016 
bne main 

; Rechte Maustaste ? 

9 

Programm beenden -- 
move.l gfxbase.aO 
move.l 38(a0),$dff080 
clr.w $dff088 

; graphics.basis 
; alte Copperlistadresse 
; und starten 

9 

move.w #$8220,$dff096 

; Sprite-DMA an 

9 

lea bitmap,aO 

; BitMap-Struktur 
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bsr clearbitmap 

move.l gfxbase,a1 
move.l 4,a6 
jsr -414(a6) 

rts 


; BitMap freigeben 

; graphics.basis 
; exec.basis 
; CloseLibrary () 

; Programmende 


Gibt einen Textauf dem Bildschirm aus, 
der mit einem Nullbyte endet 

;— Parameter: AO = Text, AI = RastPort, A6- Graphics-Basis 
DO = X-Pos., Dl = Y-Position 
PrintText: 

clr. w d2 ; Zähler für Anzahl Zeichen 

move.l aO,a2 
ptjoop: 
tst.b (a2)+ 
beq pt_loop_end 
add.w#1,d2 

cmp.w #100,d2 ; Max. 80 Zeichen 

bne pt_loop 
pt_loop_end: 

tstw d2 ; Kein Text ? 

beq pt_end 

movem.l aO-a 1/a6/d2,-(sp) ; Parameter retten 

jsr -240(a6) ; MOVE () - Position setzen 

movem.l (sp)+,a0-a1/a6/d0 ; Parameter holen 

jsr -60(a6) ; TEXT () - Text printen 

pt_end: 
rts 


BitMap-Pointer in CopperList übertragen 
AO = BitMap; AI = CopperPuffer; DO = Modus 
InitCopperMap: 

move.w (aO),d1 ; Bytes pro Zeile nach Dl 

sub.w #40,dl ; minus 40 Bytes (320 Pixel) 

cmp. w #$8000, dO ; Modus = Hires ? 

bne icm_ 1 
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sub.w#40,d1 

; nochmal minus 40 Bytes 


(insgesammt -640 Pixel) 

icm_ 1: 


cmp.w #$04,d0 

; Modus = Interlace ? 

bne icm_2 


sub.w#40,d1 

; auch minus 40 Bytes (ins¬ 


gesammt -640 Pixel) 

icm_2: 


move.w #$0108,(a1)+ 

; BPL1MOD 

move.w d1,(a1)+ 

; Modulo-Wert ungerade Pla¬ 


nes 

move.w #$010a, (a 1)+ 

; BPL2MOD 

move.w dl,(a1)+ 

; Modulo-Wert gerade Planes 

move.b 5(a0),d1 

; Depth nach Dl 

Isl.w#8,d1 

; Korrekten 

Ist. w #5, dl 

; Depth-Wert 

Isr.w#1,d1 

; ermitteln 

add. w #$0200,dl 

; Color setzen 

add.w d0,d1 

; Modus setzen 

move.w #$0100,(a1)+ 

; BPLCONO 

move.w dl,(a1)+ 

; setzen 

moveq #5,d0 

; max. Tiefe minus 1 

move.w #$00e0,dl 

; Hi-Word vom ersten Map- 


Pointer 

add.l #8,a0 

; Erster Pointer-Zeiger 

icmjoop: 


move.w dl,(a1)+ 

; Hi-Word vom Pointer 

move.w (a0)+,(a1)+ 

; setzen 

add.w #2,dl 

; Lo-Word ermitteln 

move.w d1,(a1)+ 

; und 

move.w (a0)+,(a1)+ 

; setzen 

add. w #2,dl 

; Hi-Word ermitteln 

dbra dO, icmjoop 


rts 


;— ColorMap in CopperListe übertragen 

AO = ColorTable; A1 

= CopperPuffer 


InitColor: 
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move.w #$180,dl 
move.w #31,d0 
icjoop: 

move.w dl,(a1)+ 
move.w (a0)+,(a1)+ 

add.w#2,d1 
dbra dO,icjoop 
rts 


; erstes Farbregister 
; Anzahl Farben 

; Farbregister in CopperList 
; dann der Farbwert in Cop¬ 
perList 

; nächstes Farbregister 


•— BitMap-Struktur initialisieren und Speicher 


qfür Maps reserverieren 
DO = Depth, Dl — Width, D2 
AO = BitMap 
InitBitMap: 
move.w d1,d4 
and.w #15,d4 
tst.wd4 
beq ibm_ 1 

move.l#-1,d0 

rts 

ibm_ 1: 

Isr.w #4,dl 
Isl.w#1,d1 

move.w d1,(a0) 

move.w d2,2(a0) 

move.w dO,4(aO) 
tst.wd3 

bne ibm 2 

clr.l dO 
rts 


Height, D3 = Memory 


; Breite nach D4 
; Rest ermitteln 
; Rest vorhanden ? 

; Wenn nicht, dann weiter - 
sonst Error 

; Error: Breite nicht durch 16 
teilbar 


; Breite durch 16 teilen 
; mal 2 = Anzahl Bytes einer 
Zeile 

; und in BitMap-Struktur 
speichern 

; Höhe in BitMap-Struktur 
speichern 

; Anzahl Planes speichern 
; Allocate Speicher für Bit- 
Maps? 

; Wenn nicht, dann Ende, 
sonst weiter 
; No Errors 
; Ende 
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ibm_2: 

move.w d0,d4 
sub.w#1,d4 
lea 8(a0),a1 
ibm_clear_loop: 
clr.l (a1)+ 

dbra d4,ibm_clear_loop 
mulu d2,d1 

move.w d0,d2 
move.l d1,d0 
move.l #$10002, dl 
sub.w#1,d2 

add.l#8,a0 
move.l a0,a2 
ibmjoop: 
move.l #$4,a6 
move.l (a6),a6 
movem.l dO-d2/aO-a2,-(sp) 
jsr-198(a6) 
tst.l dO 

bne ibm_l1 

movem.J (sp)+,d0-d2/a0-a2 
ibmjreejoop: 
move.l (a2),a1 
cmp.l#0,a1 
bne ibm_l2 
move.l #-2,d0 
rts 

ibm_l2: 
clr.l (a2)+ 

movem.l d0/a2,-(sp) 
move.l #$4,a6 
move.l (a6),a6 
jsr -210(a6) 
movem.l (sp)+,d0/a2 


; Depth nach D4 
; minus 1 
; BitMap nach al 
; Pointer-Zeiger 
; löschen 

; BytePerRow x Höhe = Size 
von einer Map 
; D2 = Anzahl Planes 
; DO = ByteSize 
; Dl = CHIP + FreeMem 
; Anzahl Planes minus 1, we¬ 
gen DBRA 

; Anfang BitMap-Zeiger 
; auch nach A2 


; AllocMem 

; konnte Speicher reserviert 
werden ? 

; Wenn ja, dann weiter 


; Zeiger auf BitMap holen 
; Null ? 

; wenn ja, dann ende 
; Error 
; Ende 


; FreeMem 
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; Zeiger auf BitMap nach D5 


bra ibmjreejoop 
ibmjl: 
move.l dO,dS 

movem.l (sp)+,d0-d2/a0-a2 
move.l d5,(a0)+ 
dbra d2,ibm_loop 
clr.l dO 
rts 

Speicher der Maps wieder freigeben 
in einer BitMap-Struktur 
;— AO = BitMap 
ClearBitMap: 
clr.w dl 

move.b 5(a0),d1 ; Depth nach Dl 

sub.w#1,d1 

move.w (aO),dO ; BytePerRow 

mulu 2(a0),d0 ; mal Höhe = MapSize 

add.i#8,a0 
move.l #$4,a6 
move.l (aß),aß 
cbmjoop: 

move.l (aO),a1 ; Map-Pointer 

cmp.UtO,a1 

beq cbmjl 

clr.l (aO)+ 

movem.l dO-d1/aO/aß,-(sp) 
jsr -210(aß) ; FreeMem 

movem.l (sp)+,dO-d1/aO/aß 
cbmjl: 

dbra dl,cbmjoop 
rts 

Parameter — 

gfxbase: dc.l 0 ; graphics.basis 

gfxname: dc.b "graphics.library",0 ; Libraryname 
even 

bitmap: blk.b 40,0 ; BitMap-Struktur 
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rastport: blk.b 100,0 
colortable: 

dc.w 0,1000,2000,3000 
blk.w 28,235 
spritedatas: blk.l 3,0 
copperlist: 
dc.w $8e,$3081 
dc.w $90,$30c1 
dc.w $92, $38 
dc.w $94,$d0 
colorpuffer: 

blk.b 128,0 
copperpuffer: 
blk.b 60,0 
dc.l $fffffffe 
demotext: 
dc.b 
even 
END 

Listingende 


; RastPort-Struktur 


; 32 Farben 

; ab hier Copperliste 
; DIWSTRT 
; DIWSTOP 
; DDFSTRT 
; DDFSTOP 

; Farbregister 

; Screen-Customregister 
; Copperlistende 


"Dieses ist ein Demo-Screen!",0 


Beschreibung 

Als erstes wird die Graphicslibrary geöffnet, um die Text-Funktio¬ 
nen aus dieser Library benutzen können. Außerdem müssen wir 
am Ende des Programms wieder auf die alte Copperliste zurück¬ 
schalten können. Jetzt initialisieren wir die RastPort- und BitMap- 
Struktur und verbinden diese miteinander. Werden diese Schritte 
vergessen, erscheint über die Textroutinen kein Text. 

Da wir unseren Screen über eine eigene Copperliste erzeugen, 
muß diese natürlich auch korrekt initialisiert werden. Dafür sorgen 
die nächsten zwei Schritte. InitColor () legt die 32 Farbregister und 
InitCopperMap () die wichtigsten Customregister in die Copperliste 
ab. Danach wird die Copperliste ordnungsgemäß gestartet. 
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Wenn die System-Copperliste durch eine neue ersetzt wird, wie 
in unserem Listing, hat dies einen unschönen Effekt zur Folge. Es 
erscheint entweder ein dicker oranger Balken oder ein flackernder 
Streifen. Dieser Balken bzw. Streifen ist der Mauszeiger, welcher 
nicht mehr richtig über den Sprite-DMA dargestellt werden kann, 
weil in unserer Copperliste die Spriteregister nicht mehr mit den 
richtigen Werten versorgt werden. Damit dieser Effekt nicht auftritt, 
schalten wir einfach den Sprite-DMA-Kanal aus und setzen die Da- 
taadresse von SpriteO (Mauszeiger) auf einen Puffer von Nullbytes. 

Es wäre ja langweilig, wenn wir nur ins Schwarze gucken müß¬ 
ten. Darum printen wir zur Abwechslung noch einen Text auf den 
Screen. In einer Schleife wird jetzt abgefragt, ob die rechte Mau¬ 
staste gedrückt wird. Ist dieses der Fall, wird das Programm been¬ 
det. Wir schalten auf die alte Copperliste zurück und den Sprite- 
DMA-Kanal wieder ein. Als letztes wird der Speicher der BitMaps 
zurückgegeben und die Graphicslibrary wieder geschlossen. 
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Joystickabfrage 


Was wäre ein Actionspiel ohne Action. Absolut langweilig, selbst 
wenn es eine hervoragende Graphik besitzen würde. Nach einiger 
Zeit wäre auch diese fade. Deswegen sollte man beim Spielen 
schon ins "schwitzen" kommen. Dies geht natürlich nur über den 
Joystick. Denn dieser Steuerknüppel ist, neben der Tastatur oder 
Maus, die einzige Verbindung zum Computer. 

Das Problem, das sich uns nun stellt, ist die Programmierung 
dieser Joystickabfrage. Es gibt mehrere Möglichkeiten, die Ports, 
welche die Verbindung zum Joystick herstellen, zu programmieren. 
Einige sind sehr kompliziert, andere funktionieren nicht richtig und 
so weiter... 

Dabei ist es sehr einfach die Ports richtig zu programmieren. 
Denn für die beiden Ports existiert jeweils ein dazugehöriges Cu- 
stomregister. Das Portregister 1 besitzt die Adresse $DFF00A und 
das Portregister 2 ist ab der Adresse $DFF00C zu finden. 

PORTI = $DFF00A PORT2 = $DFF00C 

Wenn wir den Joystick in eine bestimmte Richtung drücken, wird 
in das dazugehörige Portregister ein Wert geschrieben. Da man 
den Joystick in acht verschiedene Richtungen drücken kann, gibt 
es auch acht verschiedene Werte, passend jeweils zur Richtung. 
Da die Portregister Leseregister sind, braucht nur der jeweilige 
Richtungswert mit dem Wert in diesem Register abgefragt und bei 
gleichem Ergebnis entsprechend verzweigt werden. So einfach ist 
die Joystickprogrammierung. 
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Wenn wir diese Methode verwenden, kann es allerdings passie¬ 
ren, daß sich die Werte ab und zu mal ändern und dadurch die Be¬ 
wegung der Figur zum Beispiel nicht synchron mit der Joystik- 
krichtung ausfällt. Diesen Fehler können wir leicht umgehen. Denn 
es gibt ein Customregister, welches den Wert enthält, mit dem die 
Portregister gestartet werden. Es handelt sich dabei nur um ein 
Schreibregister. Zu finden ist dieses ab der Adresse $DFF036. 

Gameportstart = $DFF036 

Wenn wir dieses Register vor jeder Portabfrage auf Null setzen, 
haben wir eine 100%ige Portabfrage. 

Die Richtungswerte sind für beide Ports gleich. Welcher Wert für 
welche Richtung steht, können sie der folgenden Tabelle entneh¬ 
men. 


Richtung: Wert; _ Richtung;-Wert! 


oben 

$0100 

oben/rechts 

$0103 

unten 

$0001 

unten/rechts 

$0002 

rechts 

$0003 

oben/links 

$0200 

links 

$0300 

unten/links 

$0301 


Es darf natürlich nicht das Beipiellisting fehlen. Abfrage der Rich¬ 
tungen oben und unten: 

Joy: 

clr.w $dff036 
move.w $dffOOc,dO 
oben: 

cmp.w #$0100,d0 
bne unten 
jsr move_oben 
bra joy 
unten: 

cmp.w #$0001, dO 


; Portsignale auf Null 
; Wert von Port 2 nach DO 

; Richtung oben ? 

; wenn nicht, dann weiter 
; Figur nach oben bewegen 


; Richtung unten ? 
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bnejoy ; wenn nicht, wieder von vor¬ 

ne 

jsr move_unten ; Figur nach unten bewegen 

bra joy 

9 

Routine fürs bewegen der Figur nach Oben — 
move oben: 


rts 

Routine fürs bewegen der Figur nach unten — 
move unten: 


rts 

Ende — 


Was uns jetzt noch fehlt, ist die Abfrage der Feuer- und Maus¬ 
knöpfe. Die folgenden kleinen Beipsiellistings zeigen die Program¬ 
mierung der Kontrollknöpfe. 

Abfrage der Maus/Feuertasten: 

Rechte (Port 1): ioop: 

btst#10,$dff016 
bne Ioop 

jsr rechtejaste_port1 
bra Ioop 

Linke (Port 1) und Feuerknopf: Ioop: 

and.b#64,$bfe001 
bne Ioop 

jsr linke_taste_port1 
bra Ioop 
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Rechte (Port 2): loop: 

btst#14,$dff016 
bne loop 

jsr rechte_taste_port2 
bra loop 

Linke (Port 2) und Feuerknopf: loop: 

and.b #128,$bfe001 
bne loop 

jsr linke_taste_port2 
bra loop 


6.1 Geräuscherzeugung 

Da der Amiga bekanntlich ja als Soundmaschine oft bewundert 
wird, werden wir uns natürlich auch diesem Komplex kurz widmen. 
Kurz, weil wir hier nicht auf die Programmierung von Musikstücken 
eingehen werden. Dafür gibt es extra Bücher, die sich speziell mit 
diesem Thema beschäftigen. 

Wir werden nur auf das Abspielen von einzelnen Samples einge¬ 
hen, also auf die Erzeugung von Soundeffekten. Was ist schon ein 
Spiel mit noch so schöner Graphik, wenn die Geräuschuntermalung 
fehlt? 

Der Amiga ist, im Gegensatz zu anderen Computern, in der Lage 
ein Geräusch fast identisch zum Original wiederzugeben. Die mei¬ 
sten Rechner, wie zum Beispiel der Commodore 64, haben vorge¬ 
gebene Wellenformen, die wiederum in bestimmten Grenzen 
variierbar sind. Der Amiga kann komplette Wellenformen aufneh¬ 
men, über sogenannte Digitalisierer, und fast in der selben Qualität 
wieder abspielen. Dabei werden die Sampledaten hintereinander als 
Wörter, die jeweils aus zwei Bytes bestehen, abgespeichert. Um 
nun ein solches Sample abspielen zu können, muß dem Rechner 
nur die Anfangsadresse dieser Datenliste übergeben werden und 
die Anzahl Bytes, die der Sample lang ist. 
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Die Sampledaten werden über DMA-Kanäle ausgegeben. Damit 
läuft der Sample unabhängig vom Prozessor, was den Vorteil hat, 
daß Rechenzeit für den Prozessor eingespart wird. Der Amiga be¬ 
sitzt vier solcher DMA-Soundkanäle, was das Abspielen von vier 
Samples gleichzeitig ermöglicht. 

PMA-Kanal Reaisteradresse Funktion _ 


0 

SDFFOAO 

Anfangsadresse der 
Sampledaten 0 

1 

$DFF0B0 

Anfangsadresse der 
Sampledaten 1 

2 

SDFFOCO 

Anfangsadresse der 
Sampledaten 2 

3 

$DFF0D0 

Anfangsadresse der 
Sampledaten 3 

0 

$DFF0A4 

Anzahl Bytes der 
Sampledaten 0 

1 

$DFF0B4 

Anzahl Bytes der 
Sampledaten 1 

2 

SDFF0C4 

Anzahl Bytes der 
Sampledaten 2 

3 

SDFF0D4 

Anzahl Bytes der 
Sampledaten 3 


Soll ein Sample abgespielt werden, muß beachtet werden, daß, 
wenn das Ende der Sampledaten erreicht wird, automatisch wieder 
von vorne begonnen wird, die Sampledaten zu lesen und abzuspie¬ 
len. Damit der Sample wirklich nur einmal abgespielt wird, muß 
kurze Zeit nach dem Starten die Sampleadresse und -länge auf 
Null gesetzt werden. Dabei geht der momentane Registerwert nicht 
verloren, da er intern bearbeitet wird. 

Damit wir den Sound auch hören, kann man die Lautstärke für je¬ 
den Kanal getrennt einstellen. Dafür sind vier Register vorgesehen, 
die einen Lautstärkebereich zwischen 0 und 64 zulassen. 
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DMA-Kanal Reaisteradresse- Eunkttaa 


0 SDFF0A8 

1 $DFF0B8 

2 $DFF0C8 

3 $DFF0D8 


Lautstärke von Kanal 0 
Lautstärke von Kanal 1 
Lautstärke von Kanal 2 
Lautstärke von Kanal 3 


Wie schon erwähnt wurde, werden die Sampledaten wordweise 
gelesen. Dieser Vorgang geschieht in einer bestimmten Geschwin¬ 
digkeit. Würde man diese Geschwindigkeit ändern, so hätte dies ein 
veränderten Klang zur Folge, was ja auch logisch ist. Denn ob ich 
jetzt über die Seiten einer Gitarre schnell oder langsam streiche, 
der Ton wäre zwar der selbe, aber jeweils in einer anderen Tonhö¬ 
he. Das ganze wird als Tonfrequenz (Sampling Rate) bezeichnet. 

DMA-Kanal Reaisteradresse_ Funktion- 


0 $DFF0A6 

1 $DFF0B6 

2 $DFF0C6 

3 $DFF0D6 


Tonhöhe für Kanal 0 
Tonhöhe für Kanal 1 
Tonhöhe für Kanal 2 
Tonhöhe für Kanal 3 


Die Tonhöhe läßt sich nach einer Formel berechnen, doch diese 
ist ziemlich kompliziert. Die meisten Programme zeigen die Tone¬ 
höhe auch gleich an, ansonsten kann man ja ein wenig herumexpe¬ 
rimentieren. 


Hat man soweit alle Vorbereitungen zum Abspielen eines Sam- 
ples hinter sich, fehlt zum Starten nur noch das Einschalten des 
entsprechenden Kanals. Dazu muß das jeweilige Bit im DMA-Con- 
trollregister gesetzt werden. Für das Einschalten des jeweiligen 
Kanals, sind die letzen vier Bits im DMA-Controllregister zustän¬ 
dig. Dabei steht das Bit 0 für Kanal 0 usw. 
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Einschalten von Kanal 0: 

move.w #$8201,$dff096 ; Kanal 0 ein 

Ausschalten von Kanal 0: 

move.w #$0001,$dff096 ; Kanal 0 aus 

Natürlich haben wir auch für das Abspielen von Samples eine 
Routine parat. Diese ist jedoch sehr einfach aufgebaut und nicht 
sehr leistungsfähig. Für das einfache Abspielen reicht sie wohl. Es 
sollte allerdings darauf geachtet werden, daß Samples nicht zu 
schnell hintereinander abgespielt werden, da sonst nur ein Knacken 
zu hören wäre. Am besten ruft man diese Routine vom Interrupt 
heraus auf. 

Routine: PlaySample (AO) (SoundTable) 

Parameter: AO = Zeiger auf SoundTable-Struktur 
Erklärung: Spielt einen Sample auf dem gewünschten Kanal ein¬ 
mal ab. 

Achtung! Diese Routine wartet nicht, bis der Sample 
zuende gespielt wurde. Man darf deswegen nicht zu 
schnell Samples auf dem selben Kanal hintereinander 
abspielen. 

SoundTable-Struktur: (Länge = 16 Bytes) 


Qffset -Iyq _ Bezeichnung Funktion 


00 

Long 

ParameterOPtr 

Zeiger auf 
von Kanal 0 

Parameterstruktur 

04 

Long 

Parameterl Ptr 

Zeiger auf 
von Kanal 1 

Parameterstruktur 

08 

Long 

Parameter2Ptr 

Zeiger auf 
von Kanal 2 

Parameterstruktur 

12 

Long 

Parameter3Ptr 

Zeiger auf 
von Kanal 3 

Parameterstruktur 

16 


END 

Ende der SoundTable-Struktur 
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Die Zahl hinter Parameter gibt den Soundkanal an, über den der 
Sample abgespielt wird. Soll ein Kanal nicht benutzt werden, muß 
das Langword (Long) an der entsprechenden Stelle auf Null gesetzt 
werden. 

ParameterXPtr-Struktur: (Länge = 12 Bytes) 


MiHMIM:I? 71L1||||I||I laüTlRfWT 


00 Long SampleData Anfangsadresse der Sampleda- 

ten 

04 Long Samplelänge Anzahl Bytes der Sampledaten 

08 Word Periodendauer Abtastrate (Tonhöhe) vom 

Sample 

10 Word Volume Lautstärke vom Sample (0 bis 

64) 

12 END Ende der ParameterXPtr-Struk¬ 

tur 

Es folgt das dazugehörige Listing: 

Spiel einen Soundeffekt nur einmal ab 
;— A0 - Zeiger auf SoundTabelle 

; Aufbau Soundtabelle: Aufbau ParameterxPointer: 

; dc.l parameterOpointer dc.l Sampledatenpointer 

; dc.l parameterlpointer dc.l Samplelänge in Bytes 

; dc.l parameter2pointer dc.w Periodendauer (Abta¬ 

strate) 

; dc.l parameter3pointer dc.w Lautstärke (0 bis 64) 

; die Zahl hinter parameter gibt den Soundkanal an, über dem 
der 

; Soundeffekt abgespielt werden soll. Soll ein Kanal nicht be¬ 
nutzt 

; werden, muß das Langword an der entsprechenden Stelle auf 
Null 

; gesetzt werden. 
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Playsample: 
clr.w dO 
clr.w d2 

lea $dffOaO,a2 

playsampleJoop: 
move.l (aO)+,a1 
cmp.l#0,a1 
beq playsample_ 1 

move.l (a1),a3 
move.l a3,(a2) 
clr.l (a3) 

move.l 4(a1),d3 
Isr.l #1,d3 
move.w d3,4(a2) 
move.w 8(a1),6(a2) 
move.w 10fa1),8(a2) 
move.w #1,dl 
Isl.w dO,d1 
or.w dl, d2 
playsample 1: 
add.l mi0,a2 

add.w#1,dO 
cmp.w#4,d0 
bne playsamplejoop 
move.w #$150,dO 
move.w d2,d1 
or.w #$8000, d2 
playsample_ wait: 
move.w d1,$dff096 
move.w d2,$dff096 
dbra dO,playsample_wait 
move.w #$40, dO 
playsample_ waitl: 


; Loopzähler 

; D2 = später DMA-Controll- 
wert 

; A2 = Adresse der Soundre¬ 
gister Kanal 0 

; Kanäle herausfiltern 

; Kanal benutzen ? (bei Null 
nicht) 

; Audiodatenadresse 
; erstes Langword löschen 
(kein Piepen) 

; Länge in Bytes 
; in Words 
; Audiodatenlänge 
; Periodendauer 
; Lautstärke 
; Start Kanal 1 
; Kanal herausfiltern 
; Kanal speichern 

; Soundregister vom näch¬ 
sten Kanal 

; schon alle 4 Kanäle 


; Dl = DMA-Wert für aus 
; D2 = DMA-Wert für an 

; DMA STOP 
; DMA Start 
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dbra d0,playsample_wait1 
lea SdffOaO.aO 
move.w #3,d2 
playsample_loop2: 
move.w d1,d0 
and.w#1,d0 
tstwdO 

beq playsample_loop2a 

move.w #1,4(a0) ; Audiodatenlänge = 1 

move.l #playsample_space,(aO) ; Audioadresse 
playsampleJoop2a: 
add.l #$10,aO 
Isr.w#1,d1 

dbra d2,playsample_loop2 
rts 

playsample_space: dc.l 0 
Listingende — 
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Kapitel 7 

Grafik-Hardwareprogrammierung 


Jetzt endlich kommen wir zu dem Teil, aut den sie bestimmt 
schon lange warten. Denn was ist ein Spiel ohne Grafik und Ani¬ 
mation? Sie als angehender Spieleprogrammierer und stolzer Be¬ 
sitzer eines Amiga werden in diesem Kapitel alles Wissenswerte 
über die Grafikprogrammierung erfahren. Dabei wird kein Vorwis¬ 
sen oder derartiges vorausgesetzt. Wir werden auf die einfache Er¬ 
zeugung von Objekten bis hin zu komplexen Animationen eingehen. 
Natürlich ordentlich mit Beispiellistings versehen. 

Um überhaupt gute Animationen erzeugen zu können, wurden 
sämtliche Routinen über die Hardware programmiert. Sie brauchen 
jetzt aber nicht zurückschrecken, denn alle Beispielroutinen sind 
einfach zu handhaben und erledigen für sie die ganze komplizierte 
Hardwareprogrammierung. Für die Profis wurden die Beispielli¬ 
stings gut dokumentiert und sind somit leicht nachzuvollziehen. 


7.1 Der Blitter 

Das wohl wichtigste Bauteil im Amiga für die Spieleprogrammie¬ 
rung ist, ohne zu übertreiben, der Blitter, denn dieser Grafik-Chip 
ist in der Lage 1 Million Punkte in einer Sekunde zu verschieben. 
Man kann nicht nur Daten hin und her verschieben, sondern auch 
auf verschiedene Arten miteinander verknüpfen. Der Blitter ist in 
der Lage, die eben aufgezählten Funktionen mit drei Quellen gleich¬ 
zeitig durchzuführen, wobei das Ergebnis ab einer bestimmten Ziel¬ 
adresse abgelegt wird. 
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Der Blitter wird auch für die Co- und Decodierung der Diskdaten 
benutzt. Doch wir werden hier nur auf bestimmte Verknüpfungen 
eingehen, die für die Darstellung von Objekten erforderlich sind. 
Diese Objekte werden auch Blitterobjekte, kurz - BOBs genannt. 

Die Programmierung des Blitters ist sehr kompliziert. Doch wie 
schon erwähnt wurde, werden sie damit ja nicht konfrontiert. Das 
erledigen dann zur gegebener Zeit die Beispielroutinen. Auch das 
System stellt uns einige Routinen für die Darstellung von Objekten 
zur Verfügung, doch sind diese viel zu langsam und umständlich. 

Wir werden uns für alle nötigen Funktionen, wie Darstellung, Kol¬ 
lisionsabfrage usw., selbst Routinen programmieren und somit ein 
ganz neues, eigenes und erweiterungsfähiges Grafiksystem zu¬ 
sammenstellen. Am Ende des Kapitels werden sie eine Sammlung 
von Routinen besitzen, die sich mit den schnellsten und komforta¬ 
belsten die je auf dem Amiga programmiert wurden, messen kön¬ 
nen. Damit besitzen sie die Basis zur Programmierung von Super¬ 
spielen, die fast an die Qualität von Automaten herankommen. Na¬ 
türlich bleibt es letztendlich an ihnen, was sie daraus machen. 


7.2 Grafiken kopieren 

Die einfachste Funktion des Blitters ist der Datentransfer. Das 
bedeutet, daß Daten, die ab einer bestimmten Adresse im Speicher 
liegen, wir nennen sie mal Quelldaten, zu einer anderen Adresse, 
die sogenannte Zieladresse, hin verschoben werden. Dabei können 
wir maximal einen Speicherblock der Größe 1024 X 1024 Pixel ver¬ 
schieben. Das wären 128 KByte oder anders ausgedrückt 131072 
Bytes. Vergleichbar mit 2,5 Bildschirmen der Größe 256 X 320 mit 
einer Tiefe von 5 Bitplanes. 

Nehmen wir mal an, wir wollen nur einen bestimmten Teil aus ei¬ 
ner Grafik herauskopieren. Die Teilgrafik soll 32 Pixel breit sein, al¬ 
so 2 Words bzw. 4 Bytes und die eigentliche Grafik besitzt eine 
Größe von 64 Pixel (= 4 Words , = 8 Bytes). Der Blitter müßte also 
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am Ende jeder Grafikzeile 32 Pixel überspringen, bevor er die 
nächste Zeile kopiert. Für diesen Zweck sind bestimmte Blitterregi- 
ster vorgesehen, die die Differenz zwischen Grafik und Teilgrafik 
beinhalten. Diese Differenz wird als Modulo bezeichnet und be¬ 
rechnet sich wie folgt: 

(Grafik - Teilgrafik) /16*2 = Modulo in Bytes 

Beispiel: (32 -16) /16 * 2 = 2 Bytes 

Der Modulowert muß immer eine gerade Anzahl von Bytes besit¬ 
zen. Deswegen können auch keine Grafiken der Größe von 14 Pi- 
xeln verschoben werden. Unmöglich ist das natürlich auch nicht. 
Denn das erste und letzte Word (= 16 Pixel) einer Zeile wird mit ei¬ 
ner Maske belegt. Normalerweise steht dort der Wert $FFFF. Es 
werden also alle Pixel übernommen. Da es sich um 1 Word han¬ 
delt, also um 16 Bits, steht jedes Bit für ein Pixel. Will man jetzt nur 
die ersten 14 Bits übernehmen, so setzt man auch nur die ersten 
14 Bits, wodurch die erste Maske einen Wert von 
%00111111111111111 enthält. Das zweite Word enthält aber wei¬ 
terhin den Wert $FFFF. Es sei denn, die Grafik ist nur 16 Pixel 
groß, dann fallen beiden Masken zusammen und die zweite Maske 
müßte den selben Wert enthalten. Diese Register werden First- 
Mask und LastMask genannt. 

Man besitzt auch die Möglichkeit, mit dem Biitter den Quelldaten¬ 
bereich vor der Ausgabe bis zu 16 Bits nach rechts zu verschie¬ 
ben. Dadurch ist man in der Lage eine Grafik an eine beliebige Po¬ 
sition auf den Bildschirm zu verschieben. Zu beachten ist dabei, 
daß die Punkte, die herausgeschoben, nicht etwa gelöscht werden, 
sondern an den Anfang der gleichen Zeile erscheinen. Um diesen 
unschönen Effekt zu vermeiden, definiert man die Grafik, welche 
verschoben werden soll, ein Word breiter. Dieses letzte Word muß 
allerdings Null sein. Dann werden die Bits des letzten Words an 
den Anfang der Zeile verschoben. Da aber keine vorhanden sind, 
erscheinen auch keine. 
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Es wurde ja schon erwähnt, daß mit dem Blitter logische Ver¬ 
knüpfungen durchgeführt werden können. Von den zahlreichen Ver¬ 
knüpfungen wollen wir allerdings nur auf zwei eingehen. Die eine 
läßt eine Verschiebung zu, bei der alle Bits gesetzt und gelöscht 
sind. Die andere eine, wo nur die gesetzten Bits verschoben wer¬ 
den. Dies würde einem logischen ODER entsprechen. 

Die Routine, welche die nötigen Schritte für uns an die Blitterhard- 
ware übernimmt, nennt sich CopyGrafik (). 

Routine: CopyGrafik (AO) (BlitterArgs) 

Parameter: AO = Zeiger auf Blitterargumentenliste, welche alle nö¬ 
tigen Informationen für den Blitter enthält. 

Erklärung: Kopiert Daten von einem Quellbereich zu einem Zielbe¬ 
reich. 


Blitter Args-Struktur: (Länge = 22 Bytes) 


Offset 

Tvd 

Bezeichnuna 

Beschreibung_ 

00 

Long 

Quelle 

Anfangsadresse des Quellda¬ 
tenbereichs, welcher verscho¬ 
ben werden soll. 

04 

Long 

Ziel 

Anfangsadresse des Zielbe¬ 
reichs, zu dem die Daten, auf 
die Quelle zeigt, hinverschoben 
werden sollen. 

08 

Word 

QModulo 

Modulowert der Quelle in Bytes 

10 

Word 

ZModulo 

Modulowert des Ziels in Bytes 

12 

Word 

W Breite 

Breite der Grafik, welche ver¬ 
schoben werden soll, in Words. 

14 

Word 

Höhe 

Höhe der Grafik in Zeilen 

16 

Byte 

Art 

Art des Datentransfers: 


1 = nur gesetzte Bits werden 
kopiert 

0 = alle Bits werden kopiert 
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17 

Byte 

QShift 

18 

Word 

FirstMask 

20 

Word 

LastMask 

22 


END 


Anzahl Punkte, die der Quellda¬ 
tenbereich vor der Ausgabe 

nach rechts geschoben werden 
soll. Werte zwischen 0 und 15 
sind erlaubt. 

erste . Maske der Quelle 

(16 Bits) 

letzte Maske der Quelle 

(16 Bits) 

Ende der BlitterArgs-Struktur 


Hier das dazugehörige Listing der Routine CopyGrafik (): 

Routine zum Copieren von Grafik mit dem Blitter — 
AO = Blitterargs — 

CopyGrafik: 


move.l #$dff000,a6 
move.l (a0),$50(a6) 

; Anfangsadresse von Quelle 

A 

move.l 4(a0),$54(a6) 

n 

; Anfangsadresse von Ziel D 

move.w #$0900,d5 

; USE nur Quelle A und Ziel D 

move.b 17(a0),d6 

; Shiftwert für Quelle A holen 

isi.w #8, d6 

; korrekten Shiftwert ermit¬ 


teln 

Isl.w#4,d6 
add.w d6,d5 

; ShiftWert (ASHx) zu 


BL TCONO addieren 

tst.b 16(a0) 
bne cgi 

; Was für eine Art liegt vor? 

add.w #$00f0,d5 

; Art=0 (alle Bits kopieren) 

; Minterm: A = D 

bra cg2 
cgi: 

; Art s 1 (nur gesetzte Bits 


kopieren) 

move.l 4(a0),$4c(a6) ; Anfangsadresse von Quelle 

B = Ziel D 
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add.w #$04fc,d5 


cg2: 

move.w d5,$40(a6) 

clr.w $42(a6) 

move.l 18(a0),$44(a6) 

move.w 8(a0),$64(a6) 
move.w 10(a0),$62(a6) 
move.w 10(a0),$66(a6) 
move.w 12(a0),d5 
move.w 14(a0),d6 
and.w #$3ff,d6 
and.w #$3f,d5 
Isl.w #6,d6 
add.w d6,dS 
move.w d5,$58(a6) 

copyg_wait: 
btst #14,$2(a6) 
bne copyg_wait 
rts 

3 

Listingende — 


; USE auch Quelle B (für 
ODERverknüpfung mit A) 

; Minterm: A + B = D 

; BLTCONO: mit entspre¬ 
chendem Wert laden 
; BLTC0N1: no Shift-Quelle 
B + aufsteigende Adr. 

; First/Last Mask (alle Bits 
übernehmen) 

; Modulowert von Quelle A 
; Modulowert von Quelle B 
; Modulowert von Ziel D 
; Breite in Words 
; Höhe in Pixel 


; D5 = breite in Words 
; 05 ist jetzt Blittersize 
; BLTSIZE und Blitteroperati- 
on starten 

; auf Blitterende warten 


Das folgende Beispielprogramm erzeugt einen Screen über die 
Hardware und kopiert eine Grafik in die BitMap. Durch Drücken der 
rechten Maustaste kann das Programm beendet werden. 

Da wir nicht die System-Interrupts ausschalten, müssen wir dem 
System verbieten auf den Blitter zugreifen zu können. Ansonsten 
kann es zu Abstürzen führen, wenn wir gleichzeitig mit dem Sy¬ 
stem auf den Blitter zugreifen. Mit der Routine OwnBlitter () ver¬ 
bieten wir dem System sämtliche Blitteroperationen. Das Gegen- 
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stück zu OwhBlitter {) ist DisOwnBlitter (), welche die Blitteropera- 
tionen wieder erlaubt. Beide Routinen benötigen keine Parameter 
und sind in der Graphics.library zu finden. 

Das folgende Listing ist so gut dokumentiert, daß keine weiteren 
Informationen erforderlich sind. 


— Erzeugt einen Screen über die Hardware 

— Kopiert eine Grafik mit CopyGrafik Q 

— und auf rechte Maustaste erscheint alte 

— Copperliste und Programm wird beendet 

— Programmname = Copy-Screen 


move.l 4,a6 
lea gfxname,a1 
clr.l dO 
jsr -552(a6) 
move.l dO,gfxbase 

lea rastport,a1 
move.l gfxbase,a6 
jsr-198(a6) 

lea bitmap,aO 
move.l #3,dO 
move.l #320,dl 
move.l #256,d2 
move.l #1,d3 
bsr initbitmap 

lea bitmap,aO 
lea rastport,a1 
move.l a0,4(a1) 


; Exec Basis 
; Libraryname 
; Version = 0 
; OpenLibrary 0 
; graphics.basis 

; RastPort-Struktur 
; graphics.basis 
; InitRastPort () 

; BitMap-Struktur 
; Depth = 3 
; 320 breit 
; 256 hoch 

; Speicher reservieren 
; BitMap init. 

; BitMap-Struktur 
; RastPort-Struktur 
; BitMap in RastPort einhän¬ 
gen 


lea colortable,aO 
lea colorpuffer,a1 
bsr initcolor 


; Farbtabelle 
; Copperpuffer 
; Farbregister init. 
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lea bitmap,aO 
lea copperpuffer,al 
clr.l dO 

bsr initcoppermap 

9 

move.l #copperlist,$dff080 
clr.w $dff088 

9 

move.w #$20,$dff096 
move.l ffspritedatas, $dff120 

9 

Blitterfunktionen dem System 
move.l gfxbase,a6 
jsr -456(a6) 

9 

Grafik kopieren — 
lea blitterargs,aO 
lea bitmap,a1 
move.l 8(a1),a2 
move.w (a1),d0 
sub.wff6,d0 
move.w dO, 10(aO) 
clr.w 8(a0) 
move.l ffquelle, (aO) 
move.l a2,4(a0) 
move.w ff3,12(aO) 
move.w ff4,14(a0) 
clr.b 16(a0) 
clr.b 17(aO) 
move.w ftSffff, 18(a0) 
mo ve. w ftSffff, 20(a0) 
bsr copygrafik 

9 

BUtter wieder freigeben — 
move.l gfxbase,a6 
jsr -462(a6) 


; BitMap-Struktur 
; Copperpuffer 
; Modus = Normal 
; Customregister init. 

; Copperlistadresse 
; Copperliste starten 

; Sprite-DMA aus 
; Sprite 0 (Mauszeiger) aus 

verbieten — 

; OwnBlitter 0 


AO = Blitterargsadresse 

AI = BitMap-Struktur 

A2 = Planei-Adresse 

Screenbreite in Bytes 

minus Quellbreite (3 Words) 

ZModulo 

QModulo 

Quelle 

Ziel 

WBreite 

Höhe 

Art=alle Bits kopieren 

QShift 

FirstMask 

LastMask 

Grafik kopieren 


; DisownBlitter () 
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lea demotext,aO 
lea rastport,a1 
move.l gfxbase,a6 
clr.l dO 
move.l #20, dl 
bsr printtext 

; Textadresse 
; RastPort-Struktur 
; graphics.basis 
; X-Position 
; Y-Position 
; Text printen 

9 

;— Maustaste abfragen — 
main: 

btst#10,$dff016 
bne main 

; Rechte Maustaste ? 

9 

Programm beenden — 
move.l gfxbase,aO 
move.l 38(a0),$dff080 
clr.w $dff088 

; graphics.basis 
; alte Copperlistadresse 
; und starten 

9 

move. w #$8220,$dff096 

; Sprite-DMA an 

! 

lea bitmap,aO 
bsr clearbitmap 

; BitMap-Struktur 
; BitMap freigeben 

9 

move.l gfxbase,a1 
move.l 4,a6 
jsr-414(a6) 

; graphics.basis 
; exec.basis 
; CloseLibrary 0 

’ rts 

; Programmende 

Gibt einen Text auf dem Bildschirm aus, — 

/— der mit einem Nullbyte endet — 

;— Parameter: AO = Text, AI = RastPort, — 

A6 = Graphics-Basis — 

DO s X-Pos., Dl ar Y-Position — 

PrintText: 

clr. w d2 ; Zähler für Anzahl Zeichen 

move.l a0,a2 
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tstb (a2)+ 
beq pt_loop_end 
add.w#1,d2 
cmp.w #100,d2 
bne ptjoop 
pt_loop_end: 
tstwd2 
beq pt_end 

movem.l a0-a1/a6/d2,-(sp) 
jsr -240(a6) 

movem.l (sp)+,a0-a1/a6/d0 
jsr -60 (a6) 
pt_end: 
rts 


; Max. 80 Zeichen 


; Kein Text ? 


Parameter retten 
MOVE 0 - Position setzen 
Parameter holen 
TEXT () - Text printen 


BitMap-Pointer in CopperList übertragen 

■ AO = BitMap; AI = CopperPuffer 

■ DO = Modus 


InitCopperMap: 
move.w (aO),d1 
sub.w #40,dl 
cmp.w #$8000,dO 
bne icm_ 1 
sub.w #40,dl 

icm_ 1: 

cmp.w #$04, dO 
bne icm_2 
sub.w #40, dl 

icm_2: 

move.w #$0108,(a1)+ 
move.w d1,(a1)+ 

move.w #$010a,(a1)+ 
move.w d1,(a1)+ 
move.b 5(a0),d1 


; Bytes pro Zeile nach Dl 
; minus 40 Bytes (320 Pixel) 
; Modus = Hires ? 


nochmal minus 40 
(insgesamt -640 Pixel) 

Modus = Interlace ? 


Bytes 


; auch minus 40 Bytes (ins¬ 
gesamt -640 Pixel) 

; BPL1M0D 

; Modulo-Wert ungerade Pla¬ 
nes 

; BPL2MOD 

; Modulo-Wert gerade Planes 
; Depth nach Dl 
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Isl.w#8,d1 
Isl.w#5,d1 
Isr.w#1,d1 
add. w #$0200,dl 
add.wd0,d1 
move.w #$0100,(a1)+ 
move.w d1,(a1)+ 
moveq#5,d0 
move.w #$00e0,d1 

add.l #8,a0 
icmjoop: 
move.w d1,(a1)+ 
move.w (a0)+,(a1)+ 
add. w #2,dl 
move.w dl,(a1)+ 
move.w (a0)+,(a1)+ 
add. w #2, dl 
dbra dO, icmjoop 
rts 


; Korrekten 
; Depth-Wert 
; ermitteln 
; Color setzen 
; Modus setzen 
; BPLCONO 
; setzen 

; max. Tiefe minus 1 
; Hi-Word vom ersten Map- 
Pointer 

; Erster Pointer-Zeiger 

; Hi-Word vom Pointer 
; setzen 

; Lo-Word ermitteln 
; und 
; setzen 

; Hi-Word ermitteln 


ColorMap in CopperListe übertragen 
AO = ColorTable; AI = CopperPuffer 
InitColor: 


move.w #$180,dl 
move.w #31, dO 
ic_loop: 

move.w dl,(a1)+ 
move.w (a0)+,{a1)+ 

add. w #2,dl 
dbra dO,ic_ioop 
rts 


; erstes Farbregister 
; Anzahl Farben 

; Farbregister in CopperList 
; dann der Farbwert in Cop¬ 
perList 

; nächstes Farbregister 


— BitMap-Struktur initialisieren und Speicher 
•— für Maps reserverieren 

■— DO = Depth, Dl = Width, D2 = Height, 

— D3 = Memory, AO = BitMap 
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InitBitMap: 
move.w d1,d4 
and.w #15,d4 
tstw d4 
beq ibm_ 1 

move.l#-1,dO 

rts 

ibm_ 1: 

Isr.w#4,d1 

Isl.w#1,d1 

move.w d1,(aO) 

move.w d2,2(a0) 

move.w d0,4(a0) 
tstw d3 

bne ibm_2 

clr.l dO 
rts 

ibm_2: 

move.w d0,d4 
sub.w#1,d4 
lea 8(a0),a1 
ibm_clear_loop: 
clr.l (a1)+ 

dbra d4,ibm_clear_loop 
mulu d2,d1 

move.w d0,d2 
move.l d1,dO 
move.l #$10002,dl 
sub.w#1,d2 


; Breite nach D4 
; Rest ermitteln 
; Rest vorhanden ? 

; Wenn nicht dann weiter - 
sonst Error 

; Error: Breite nicht durch 16 
teilbar 


; Breite durch 16 teilen 
; mal 2 = Anzahl Bytes einer 
Zeile 

; und in BitMap-Struktur 
speichern 

; Höhe in BitMap-Struktur 
speichern 

; Anzahl Planes speichern 
; Muß Speicher für BitMaps 
reserviert werden ? 

; Wenn nicht, dann Ende, 
sonst weiter 
; No Errors 
; Ende 

; Depth nach D4 
; minus 1 
; BitMap nach al 
; Pointer-Zeiger 
; löschen 

; BytePerRow x Höhe = Size 
von einer Map 
; D2 = Anzahl Planes 
; DO = ByteSize 
; Dl = CHIP + FreeMem 
; Anzahl Planes minus 1, we¬ 
gen DBRA 
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add.l #8,a0 
move.la0,a2 
ibmjoop: 
move.l #$4,a6 
move.l (a6),a6 
movem.l dO-d2/aO-a2,-(sp) 
jsr-198(a6) 
tstldO 

bne ibmjl 

movem.l (sp)+,dO-d2/aO-a2 
ibmjreejoop: 
move.l (a2),a1 
cmp.l#0,a1 
bne Ibm_l2 
move.l #-2,dO 
rts 

ibm_l2: 
clr.l (a2)+ 

movem.l d0/a2,-(sp) 
move.l #$4,a6 
move.l (a6),a€ 
jsr -210(a6) 
movem.l (sp)+,d0/a2 
bra Ibmjreejoop 
ibmjl: 
move.l d0,d5 

movem.l (sp)+,d0-d2/a0-a2 

move.l dS,(aO)+ 

dbra d2,ibmjoop 

clr.l dO 

rts 


; Anfang BitMap-Zeiger 
; auch nach A2 


; AllocMem 

; konnte Speicher reserviert 
werden ? 

; Wenn ja, dann weiter 


; Zeiger auf BitMap holen 
; Null ? 

; wenn ja, dann Ende 
; Error 
; Ende 


; FreeMem 


; Zeiger auf BitMap nach D5 


Speicher der Maps wieder freigeben 
in einer BitMap-Struktur 
AO = BitMap 
ClearBitMap: 

cfturrf? 


97 



Kapitel 7 


Grafik-Hardwareproarammierung 


move.b 5(a0),d1 

; Depth nach Dl 

sub.w #1,d1 
move.w (aO),dO 

; BytePerRow 

mulu 2(a0),d0 

; mal Höhe = MapSize 

add.l #8,a0 
move.l#$4,a6 
move.l (a6),a6 
cbmjoop: 
move.l (a0),a1 

; Map-Pointer 

cmp.uk), al 
beq cbmjl 
clr.l (a0)+ 

movem.l d0-d1/a0/a6,-(sp) 
jsr -210(a6) 

; FreeMem 

movem.l (sp)+,d0-d1/a0/a6 
cbmjl: 

dbra dl,cbmjoop 
rts 

Routine zum Copieren von Grafik mit dem Blitter 

AO = Blitterargs 

— 

CopyGrafik: 
move.l #$dff000,a6 
move.l (a0),$50(a6) 

; Anfangsadresse von Quelle 

move.l 4(a0),$54(a6) 

A 

; Anfangsadresse von Ziel D 

move.w #$0900, d5 

; USE nur Quelle A und Ziel D 

move.b 17(a0),d6 

; Shiftwert für Quelle A holen 

Isl.w #8,d6 

; korrekten Shiftwert ermit¬ 

Isl.w#4,d6 
add.w d6, d5 

teln 

; ShiftWert (ASHx) zu 

tst.b 16(a0) 

BL TCONO addieren 
; Was für eine Art liegt vor? 

bne cgi 

add.w #$00f0,d5 

; Art =0 (alle Bits kopieren) 

bra cg2 

; Minterm: A = D 
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cgi: 

move.l 4(a0),$4c(a6) 
add.w #$04fc,d5 


cg2: 

move.w d5,$40(a6) 

clr.w $42(a6) 

move.l 18(a0),$44(a6) 

move.w 8(a0),$64(a6) 
move.w 10(a0),$62(a6) 
move.w 10(a0),$66(a6) 
move.w 12(a0),d5 
move.w 14(a0),d6 
and.w #$3ff,d6 
and.w #$3f,d5 
Isl.w#6,d6 
add.w d6,d5 
move.w d5,$58(a6) 

copyg_wait: 
btst#14,$2(a6) 
bne copyg_wait 
rts 


; Art = 1 (nur gesetzte Bits 
kopieren) 

; Anfangsadresse von Quelle 
B = Ziel D 

; USE auch Quelle B (für 
ODERverknüpfung mit A) 

; Minterm: A + B = D 

; BLTCONO: mit entspre¬ 
chendem Wert laden 
; BLTCON1: no Shift-Quelle 
B + aufsteigende Adr. 

; First/Last Mask (alle Bits 
übernehmen) 

; Mo du Io wert von Quelle A 
; Modulowert von Quelle B 
; Modulowert von Ziel D 
; Breite in Words 
; Höhe in Pixel 


D5 = Breite in Words 
D5 ist jetzt Blittersize 
BLTSIZE und Blitteroperati- 
on starten 


Parameter — 

gfxbase: dc.l 0 ; graphics.basis 

gfxname: dc.b "graphics.library",0 ; Libraryname 
even 

bitmap: blk.b 40,0 ; BitMap-Struktur 

rastport: blk.b 100,0 ; RastPort-Struktur 

colortable: 

dc.w 0,1000,2000,3000 


99 




32 Farben 


blk.w 28,235 
spritedatas: blk.l 3,0 

copperlist: ; ab hier Copperliste 

dc.w $8e,$3081 ; DIWSTRT 

dc.w $90,$30c1 ; DIWSTOP 

dc.w $92,$38 ; DDFSTRT 

dc.w $94,$d0 ; DDFSTOP 

colorpuffer: 

blk.b 128,0 ; Farbregister 

copperpuffer: 

blk.b 60,0 ; Screen-Customregister 

dc.l $fffffffe ; Copperlistende 

demotext: 

dc.b "Grafik kopieren mit dem Blitter",0 
even 

blitterargs: 

blk.b 22,0 ; 22 Bytes BlitterArgs 

Quelle: ; Höhe = 4, Breite = 3 Words 

dc.w %0011111000000001,%1000000001111100,$0 

; letztes Word = 0 
dc.w %0011111000000011,%1100000001111100,$0 

; letztes Word=0 
dc.w %0011000000000111,%1110000000001100,$0 

; letztes Word = 0 
dc.w%0011111111111111,%1111111111111100,$0 

; letztes Word = 0 

END 

Listingende — 
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7.3 Bitmaps kopieren 

Für das flackerfreie Darstellen von Objekten ist es notwendig, 
den Hintergrund, worauf das Objekt gezeichnet werden soll, in ei¬ 
nen Puffer zu retten. Dabei stehen einem mehrere Möglichkeiten 
offen. Wir wollen hier aber nur auf eine eingehen. Die anderen wer¬ 
den im Kapitel 7.10 beschrieben. 

Das ganze Prinzip der flackerfreien Bewegung von Objekten be¬ 
ruht darauf, daß diese im Hintergrund aufgebaut werden. Das 
heißt, daß der eigentliche Hintergrund nicht nur einmal vorhanden 
ist, sondern mindestens zweimal oder wie in unserem Beispiel so¬ 
gar dreimal. Dabei werden die Objekte in die zweite Bitmap (Hin¬ 
tergrund) gezeichnet, welche jedoch nicht sichtbar ist. Jetzt wird 
diese aktiviert und die Objekte werden blitzschnell dargestellt. Was 
jetzt nur noch fehlt, ist das Restaurieren des Hintergrundes. Denn 
die jetzt unsichtbare Bitmap enthält ja die alte Position der Objekte. 
Würden wir jetzt wieder die Objekte nach beschriebener Methode 
erscheinen lassen, hätte dies ein verschwommenes Objekt zur Fol¬ 
ge. Deswegen legen wird den Hintergrund einfach dreimal im Spei¬ 
cher ab, und kopieren die dritte Bitmap nach dem aktivieren der un¬ 
sichtbaren Bitmap, in die jetzt unsichtbare. Damit befindet sich der 
Hintergrund immer in seiner Ausgangstage. Es gibt zwar auch an¬ 
dere Möglichkeiten, aber wie schon erwähnt wurde, wird darauf 
später eingegangen. Diese Methode ist auf den ersten Blick sehr 
speicherraubend, doch das täuscht. Wenn viele Objekte verwaltet 
werden sollen, erweist sie sich sogar als speichersparend. Außer¬ 
dem ist sie sehr einfach. 

Im vorangegangen Abschnitt waren wir auf das einfache Kopieren 
von Grafiken mit dem Blitter eingegangen. Wir könnten jetzt natür¬ 
lich jede einzelne Bitmap in der BitMap-Struktur mit der Routine 
"CopyGrafik ()” kopieren. Doch das wäre viel zu umständlich. Ne¬ 
benbei ist es auch nicht gerade sehr schnell. Viel einfacher und 
schneller würde es mit einer Routine gehen, welche speziell nur 
BitMaps kopiert. 
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Sie werden es sich sicherlich schon denken können. Auch für 
diesen Zweck habe ich eine Routine geschrieben. Die Funktion, die 
sich sinnvollerweise CopyBitMap () nennt, benötigt als Parameter 
nur die Anfangsadresse der Quell- und Ziel-Bitmap-Struktur. Den 
Rest erledigt die Routine. Das Listing ist sehr kurz und da die Bit- 
Map natürlich mit dem Blitter verschoben wird, auch sehr schnell. 

Routine: CopyBitMap (A0,A1) (Quell-BitMap.Ziel-BitMap) 

Parameter: AO = Adresse der Quell-BitMap-Struktur, welche ver¬ 
schoben werden soll. 

Al = Adresse der Ziel-BitMap-Struktur, wo die Quell- 
BitMap-Struktur hinverschoben werden soll. 

Erklärung: Diese Routine kopiert die BitMap-Struktur auf die AO 
(Quelle) zeigt, in die BitMap-Struktur auf die AI (Ziel) 
zeigt. Die BitMap darf maximal 1024 Pixel breit und 
1024 Zeilen hoch sein. 


Hier das dazugehörige Listing: 

Routine zum Copieren von Grafik mit dem Blitter 
AO = Quell-BitMap; AI = Ziel-BitMap 


CopyBitMap: 
move.l #$dff000,a6 
move.l #$09f00000,$40(a6) 

move.l #-1,$44(a6) 

clr.l $64(a6) 
move.w (a0),d5 
Isr.w#1,d5 
move.w 2(a0),d6 
and.w #$3ff,d6 
Isl.w#6,d6 
and.w #$3f,d5 
add.wd6,d5 
clr.w dO 

move.b 5(a0),d0 


; Custom-Basisadresse 
; USE AundD 
; Minterm: A = D 
; First/Last Mask (alle Bits 
übernehmen) 

; Mo du Io wert von Quelle A 
; Breite in Bytes 
; jetzt in Words 
; Höhe in Pixel 
; Blittersize errechnen 
; D5 = Breite in Words 
; D6 ss Höhe in Pixel 
; D5 ist jetzt Blittersize 

; Tiefe 
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subq U1,d0 
add.l #8,a0 
add.l #8,al 
cbmapjoop: 
move.l (a0)+,$50(a6) 

move.l (a1)+,$54(a6) 
move.w d5,$58fa6) 

cbmap_wait: 
btst#14,$2(a6) 
bne cbmap_wait 
dbra dO, cbmapjoop 
rts 

Ustingende — 


; minus 1 


; Anfangsadresse von Quelle 
A 

; Anfangsadresse von Ziel D 
; BLTSIZE und Blitteroperati- 
on starten 

; Warten bis Blit fertig 


Diese Routine kopiert blitzschnell Grafiken. Doch was ist, wenn 
wir die Grafik nicht mehr haben wollen, sondern gerne auf einem 
leeren Hintergrund Text ausgeben möchten? 

Was wir dazu brauchen, ist eine Funktion, die den Hintergrund 
löscht. Auf dem Commodore 64 reichte das Printen eines inversen 
Herzens und der Bildschirm war frei. Der Amiga bietet uns dafür 
leider nicht so eine einfache Methode. Deswegen folgt eine Routi¬ 
ne, welche mit Hilfe des Blitters den Bildschirm löscht. Doch diese 
Funktion kann einiges mehr. Man kann ihr ein 16-Bit großes Muster 
in dem Datenregister DO übergeben. Mit diesem Muster wird dann 
der ganze Bildschirm gefüllt. Setzt man das Datenregister auf den 
Wert Null, so wird der Bildschirm gelöscht. Das ganze läuft so su¬ 
perschnell ab, daß es für das menschliche Auge gar nicht wahr¬ 
nehmbar ist und damit sofort erscheint. 
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Routine: FillBitMap (DO,AI) (Muster,BitMap) 

Parameter: DO - Füllmuster (16 Bit bzw. 1 Word groß) mit dem die 
BitMap gefüllt werden soll. 

AI - Adresse der BitMap-Struktur, welche mit dem 
Muster gefüllt werden soll. 

Erklärung: Diese Routine füllt eine BitMap-Struktur auf die Al 
zeigt, mit einem 16-Bit großen Muster, welches im Da¬ 
tenregister DO übergeben wird. Die Ausmaße sind die 
selben wie bei CopyBitMap (). 


Listing: 


Routine zum Füllen der Bitmap mit dem Blitter 
DO = FillMuster, A1 = BitMap 
FillBitMap: 


move.l #$dff000,a6 
move.w d0,$74(a6) 
move.l #$01f00000,$40(a6) 

move.l #- 1,$44(a6) 

clr.l $64(a6) 
move.w (a1),dS 
Isr.w#1,d5 
move.w 2(a1),d6 
and.w #$3ff,d6 
Isl.w#6,d6 
and.w #$3f,d5 
add.w d6,d5 
clr.w dO 

move.b S(a1),d0 
subq#1,d0 
add.l#8,a1 
fbmapjoop: 
move.l (a1)+,$54(a6) 
move.w d5,$58(a6) 


; Fillmuster 
; USE A und D 
; Mlnterm: A = D 
; First/Last Mask 
(alle Bits übernehmen) 

; Modulowert von Quelle A 
; Breite in Bytes 
; jetzt in Words 
; Höhe in Pixel 
; Bllttersize errechnen 
; D5 = Breite In Words 
;D6=Höhe in Pixel 
; D5 ist jetzt Blittersize 

; Tiefe 
; minus 1 

; Anfangsadresse von Ziel D 
; BLTSIZE und Blitteroperati- 
on starten 
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fbmap_wait: 

btst#14,$2(a6) ; Warten bis Blit fertig 

bne fbmap_ wait 
dbra d0,fbmapjoop 
rts 

Listingende — 


7.4 BOBs - Blitterobjekte 

Der Amiga ist in Lage, über seine Hardware bis zu acht Sprites 
darzustellen. Ein Sprite ist ein Gebilde aus mehreren Grafikpixeln. 
Der Mauszeiger ist zum Beispiel auch ein Sprite. Diese Sprites 
werden mit Hilfe der Hardware über eigene DMA-Kanäle auf dem 
Bildschirm ausgegeben. Diese Sprites sind jedoch in vieler Hinsicht 
eingeschränkt. Sie sind nicht besonders breit und können auch 
nicht viele Farben besitzen. Damit sind sie für die Spieleprogram¬ 
mierung nicht gerade besonders geeignet. 

Für ein gutes Spiel sind schon mehr als acht Objekte erforderlich. 
Natürlich sollten diese in ihren Ausmaßen nicht begrenzt sein. Die¬ 
se Aufgaben erfüllen die sogenannten BOBs bzw. Blitter-objekte. 
Ein BOB ist ein Blitter-Objekt, welches, wie der Name schon sagt, 
mit dem Blitter erzeugt wird. Dabei handelt es sich um eine Grafik, 
die mit dem Blitter blitzschnell in den Hintergrund kopiert werden 
kann. Ein Blitter-Objekt kann die maximale Anzahl von Farben wie 
der Hintergrund besitzen. Auch wird dieser in der selben Auflösung 
dargestellt. Allerdings ist das Blitter-Objekt keinen Ausmaßen un¬ 
terlegen. 

Würde man jetzt aber einfach eine solche Teilgrafik (BOB) mit 
dem Blitter in den Hintergrund kopieren, so würde dieser ja verlo¬ 
rengehen. Es ist deswegen notwendig, die Hintergrundgrafik mit 
den gleichen Ausmaßen wie das Blitter-Objekt in einen Puffer zu 
retten. Will man jetzt einen BOB über den Hintergrund bewegen, so 
muß als erstes der Hintergrund, der vorher gerettet wurde, in den 
Hintergrund an seiner alten Position zurück ge schrieben werden. 
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Als zweites muß jetzt der Hintergrund an den neuen Positionen des 
BOBs gerettet werden, damit dieser später auch wieder hergestellt 
werden kann. Jetzt erst können sie das eigentliche Blitter-Objekt in 
den Hintergrund kopieren. All diese Schritte müssen jedesmal 
durchgeführt werden, wenn sie das Blitter-Objekt bewegen möch¬ 
ten. 

Bei diesem Aufwand spielt der Faktor Zeit eine große Rolle. Die 
Geschwindigkeit, welche für das Kopieren der Grafiken erforderlich 
ist, kann natürlich nicht mit dem Prozessor erreicht werden. Dafür 
wird, wie kann es auch anders sein, der Blitter eingesetzt. 

Kurzbeschreibung von BOBs: 

Ausmaße : beliebig (maximal 1024 X 1024 Pixel) 

Farben : maximal so viele wie der Hintergrund 
Anzahl : beliebig viele (bis Speicher voll ist) 

Auflösung : dieselbe wie der Hintergrund 


Aufba u von einem BOB 


Screen mit Blitterobfekt 

Blitter-ubjekt 




BOB immer ein Word 
C16 Punkte) breiter 
machen, eis normal. 



Mit dem Malprogramm Deluxe-Paint (oder auch andere) kann 
man Teile der Hintergrundgrafik ausschneiden und diese als Brus- 
hes auf Diskette abspeichern. Diese Brushes sind nichts anderes 
als Blitter-Objekte. Nur werden diese in einem bestimmten Format 
abgespeichert. Wie wir dieses Format in für uns brauchbare Daten 
umwandeln, wird im Abschnitt 7.6 beschrieben. . 
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7.5 BOBs programmieren 

Einen BOB zu programmieren erfordert ziemlich viel Aufwand. 
Denn schließlich müssen bis zu drei Schritte hintereinander ausge¬ 
führt werden. 

1. Hintergrund retten 

2. Alten Hintergrund zurückschreiben 

3. BOB in Hintergrund schreiben 

Am besten legt man sich für jedes Objekt eine Tabelle (Struktur) 
an, in der alle notwendigen Parameter für die Darstellung eines 
BOBs enthalten sind. Diese Parameter werden dann von einer Un¬ 
terroutine verwaltet. Sie berechnet dazu alle notwendigen Größen 
und trägt sie in die dazugehörigen Blitterregister ein. Das ist wohl 
die einfachste und schnellste Methode, ein Blitterobjekt auf dem 
Bildschirm erscheinen zu lassen. Möchte man jetzt zum Beispiel 
das Objekt bewegen, so wird einfach die Positionsvariable in der 
Tabelle geändert und die Unterroutine aufgerufen. Schon erscheint 
das Objekt an der neuen Position. Es ist allerdings auch möglich, 
die Blitterregister immer zum jeweiligen Augenblick an Ort und 
Stelle zu berechnen und einzutragen. Diese Methode ist aber sehr 
speicherraubend, erfordert sehr gute Kenntnisse der Blitterhardwa- 
re und ist zudem umständlich. Trotz dieser Nachteile wird in den 
Computerzeitschriften meistens diese Methode aufgegriffen, um in 
irgendwelchen Grafikkursen einen BOB zu programmieren. 

Wir werden unsere BOBs nach dem ersten Prinzip erzeugen. Da¬ 
zu benötigen wir zwei Dinge. Einmal eine Tabelle, welche einen be¬ 
stimmten Aufbau besitzt, um die Parameter zu speichern. Und na¬ 
türlich die dazugehörige Unterroutine, welche die Parameter ver¬ 
waltet. Das größere Problem von beiden ist die Unterroutine, daran 
scheitern auch die Computerzeitschriften. Denn diese Routine muß 
unabhängig alle Tabellen sofort verwalten können. Das ganze in ei¬ 
ner gewaltigen Geschwindigkeit. 
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Für diesen Zweck habe ich eigens eine Routine entwickelt, mit 
der es kinderleicht ist, BOBs nach beschriebener Methode zu er¬ 
zeugen. Diese Funktion, welche ich "PrintObjekt ()" genannt habe, 
kann sich wohl mit den schnellsten Routinen aut dem Amiga mes¬ 
sen. Schneller als die GEL-Routinen (BOB- und Sprite-Routinen) 
des Betriebssystems ist sie allemal. Zudem ist die Routine relativ 
kurz. Die Funktion verwaltet beliebig viele Objekte, die jeweils eine 
maximale Größe von 1024 X 1024 Pixeln besitzen können. Sie 
schneidet auch die Objekte am Bildschirmrand entsprechend zu¬ 
recht, damit beim Bewegen eines Objektes außerhalb der BitMap 
(Hintergrund) es nicht zu unschönen Effekten kommt, wie etwa 
Wiederhereinkommen auf der anderen Bildschirmseite oder sogar 
"Guru medetiert". 

Die PrintObjekt () Funktion benötigt zwei Parameter. Erstens die 
Adresse der BitMap-Struktur, woraut das Objekt dargestellt wer¬ 
den soll. Diese wird in einer festen Variable gespeichert. Die Varia¬ 
ble nennt sich "po_bitmap" und ist schon fest in der Funktion ent¬ 
halten. Zweitens in dem Adressregister A0 die Anfangsadresse der 
Tabelle, welche alle nötigen Parameter enthält. 

Die Tabelle, die alle nötigen Informationen enthält, besitzt den Na¬ 
men "ObjektArgs" und ist folgendermaßen aufgebaut: 

ObjektArgs-Struktur: (Länge = 32 Bytes) 



Tvd 






00 

Word 

OldY 

alte Y-Position 
tine) 

(Intern 

für 

Rou 

02 

Word 

OldX 

alte X-Position 
tine) 

(Intern 

für 

Rou 

04 

Byte 

BOBOff 

Wert/ Funktion: 





0 Normal (führt Schritte 

3/4/2 aus) 

1 BOB wird ausgeschaltet 

(Schritt 3) 
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2 Schreibe nur BOB-Daten 
in BitMap 

3 Hintergrunddaten zurück¬ 


schreiben 

4 Hintergrunddaten lesen 


05 

Byte 

Init 

Variable für Routine 

06 

Word 

YPos 

Vertikale Position vom Objekt 

08 

Word 

XPos 

Horizontale Position vom Objekt 

10 

Word 

Height 

Höhe vom Objekt in Zeilen 

12 

Word 

WordWidth 

Breite vom Objekt in Words 

14 

Word 

Depth 

Anzahl Bitmaps (Planes) vom 
Objekt 

16 

Long 

Image 

Zeiger auf Grafikdaten vom Ob¬ 
jekt 

20 

Long 

ShadowMask 

Zeiger auf Schattenmaske 
(Wichtig) 

24 

Long 

SaveBuffer 

Zeiger auf Hintergrundpuffer 

28 

Long 

CollMask 

Zeiger auf Collisionsmaske 

32 


END 

Ende der ObjektArgs-Struktur 


Erklärung: 

OLdY.OIdX (Offset 00/02): 

Alte Koordinaten des Objekts. Wird von der Routine selbst ver¬ 
waltet, darf nicht von Ihnen gesetzt werden. Diese Koordinaten 
sind für das richtige Restaurieren des Hintergrundes erforderlich. 
Sonst wüßte die Routine ja nicht, an welcher Stelle der alte Hinter¬ 
grund zurückgeschrieben werden soll. 

BOBOff (Offset 4): 

Mit diesem Byte kann bestimmt werden, welcher Schritt ausge¬ 
führt werden soll. Dadurch ist man in der Lage, mehrere Prinzipien 
des DoubleBufferings durchzuführen (Kapitel 7.10). Will man jetzt 
nur das Objekt in den Hintergrund schreiben, ohne den Hintergrund 
zu retten, muß dieses Byte den Wert 2 enthalten. 
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Init (Offset 5): 

Dieses Byte wird intern von der Routine verwaltet. Es muß beim 
ersten Aufruf der Routine auf Null gesetzt werden und darf danach 
nicht mehr geändert werden. 

YPos,XPos (Offset 06/08): 

Diese Words (16 Bits) enthalten die aktuelle Position des Objekts. 
Durch einfaches Ändern dieser Variablen, kann das Objekt bewegt 
werden. 

Height (Offset 10): 

Enthält die Anzahl Zeilen, die das Objekt groß ist. Das Objekt darf 
maximal 1024 Zeilen hoch sein. 

WordWidth (Offset 12): 

Hier wird die Breite des Objekts in Words (= 2 Bytes oder 16 
Bits) eingetragen. In Words, weil der Blitter nur wordgroße Puffer 
bearbeiten kann. Achtung! - Das letzte Word, also die letzten 16 
Bits einer Grafikzeile vom Objekt, muß immer Null sein. Sie müs¬ 
sen dazu das Objekt nur ein Word breiter machen, als es eigentlich 
ist. Durch diesen kleinen Trick ist man in der Lage, mit dem Blitter 
das Objekt an eine beliebige Position zu kopieren. 

Depth (Offset 14): 

Hier wird die Anzahl der Bitmaps gespeichert, die das Objekt be¬ 
sitzt. Also die Tiefe bzw. die Anzahl der Farben, die das Objekt 
maximal besitzen kann. Die Anzahl, die hier eingetragen wird, darf 
nicht größer sein, als die Anzahl in der BitMap-Struktur. 
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Image (Offset 16): 

Hier wird die Anfangsadresse der ersten BitMap vom Objekt ein¬ 
getragen. Dabei ist zu beachten, daß die BitMaps hintereinander 
liegen. Also erst BitMap 1, dann BitMap 2, usw., so viele, wie in 
der Variablen Depth angegeben sind. 

ShadowMask (Offset 20): 

Hier wird die Anfangsadresse auf einen Puffer eingetragen, der 
die Schattenmaske vom Objekt enthält. Eine Schattenmaske ist ein 
logisch ODER aller Bitmaps (Image) vom Objekt. Diese Schatten¬ 
maske ist notwendig, damit der Blitter weiß, ob jetzt ein Punkt ge¬ 
löscht oder gesetzt werden soll. Denn es sollen ja nur die Punkte 
gesetzt werden, die auch in den BitMaps (Image) des Objekts ge¬ 
setzt sind, alle anderen werden gelöscht. Für das Erzeugen der 
Schattenmaske wird im nächsten Abschnitt eine Routine vorge¬ 
stellt. Die Größe des Puffers berechnet sich wie folgt: Shadow- 
MaskSize = Height X WordWidth X 2 (In Bytes) 

SaveBuffer (Offset 24): 

Muß die Anfangsadresse des Puffers enthalten, worin der Hinter¬ 
grund zwischengespeichert werden soll. Dieser Puffer ist nur er¬ 
forderlich, wenn BOBOff die Werte 0, 3 oder 4 enthält. Die Puffer¬ 
größe berechnet sich nach folgender Formel: 

SaveBufferSize - Height x WordWidth x 2 x Screentiefe (Depth) 

CollMask (Offset 28): 

Enthält die Anfangsadresse der Collisionsmaske. Normalerweise 
besitzt sie den selben Aufbau, wie der ShadowMask-Puffer. Denn 
nur wo in der Collisionsmaske ein Punkt gesetzt ist, wird eine Col¬ 
lision zum Test herangezogen. Am besten sie setzen diesen Wert 
auf denselben vom ShadowMask. Außerdem spart das auch noch 
Speicherplatz. 
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Hier nocheinmal eine Kurzbeschreibung der Funktion "PrintOb- 
jekt ()": 

Routine: PrintObjekt (AO,po_bitmap) (ObjektArgs.BitMap) 

Parameter: AO - Adresse der ObjektArgs-Struktur, welche alle nö¬ 
tigen Parameter enthält. 

po_bitmap - Ist eine feste Variable im Listing, welches 
noch folgt, das die Adresse der BitMap-Struktur ent¬ 
halten muß, in der das Objekt dargestellt werden soll. 
Achtung!- Das letzte Word einer Grafikzeile muß immer Null sein. 
Achtung!- Wenn man einen Hintergrund zurückschreibt, ohne vor¬ 
her einen gerettet zu haben, wird die Hintergrundgrafik 
trotzdem nicht zerstört. 


Jetzt endlich kommen wir zum eigentlichen Listing. Dieses ist so 
gut dukomentiert, daß eine ausführliche Beschreibung nicht erfor¬ 
derlich ist. Die Beschreibung ist ja auch mehr für die Profis unter 
Ihnen gedacht. 


Ein Objekt auf Bildschirm printen 
— AO = Objektargs 

po_bitmap=Zeiger auf Bitmap-Struktur 
Objekte nicht höher und/oder breiter als Bitmap 
Diese Routine kann PC-Relative assembliert werden 
PrintObjekt: 

move.l po_bitmap(pc),a1 


move.l #$dff000,a2 
move.w (a1),d6 
Isr.w#1,d6 
move.w 2(a1),d7 


; Chip-Basisadresse $DFFOOO 

; D6=Screenbreite in Words 
; D7=Screenhöhe 


move.w 6(a0),d0 
cmp.w 2(a1),d0 

bge po_clipping 
move.w 10(a0),d1 
beg.wd1 
cmp.» d1,dO 


; Ypos nach DO 

; if YPos >= Screenhöhe then 
Ende 

; Höhe des Objekts nach Dl 
; negativ machen 
;UYPos^sDl then Ende 


II2 





ble po_clipping 
move.w 8(a0),d0 
move.w (a1),d1 
Isl.w#3,d1 
cmp.w d1,dO 

bge po_clipping 
move.w 12(a0),d1 
sub.w#1,d1 
Isl.w#4,d1 
neg.w dl 
cmp.w d1,dO 
ble po_clipping 

l 

cmp.b #1,4(a0) 
bne pojbobon 

po_bob_aus: 
bsr po_writehintergrund 
clr.b 5(a0) 
rts 

po_bobon: 
tstb 4(aO) 
bne po_bobon_xa 
bsr po_writehintergrund 
bsr po_readhintergrund 
bsr po_writeobjekt 

rts 

po_bobon_xa: 
cmp.b #2,4(a0) 
bne po_bobon_xb 
bsr po_ w rite Objekt 

rts 

po_bobon_xb: 
cmp.b #3,4(a0) 
bne po_bobon_xc 
bsr pojmrttehin tergrund 


; X-Pos. nach DO 
; Zellenbreite in Bytes 
; mal 8 = Zeilenbreite in Pixel 
; If XPos >= Zeilenbreite then 
Ende 

; Objektbreite nach Dl 
; ein Word abziehen 
; mal 16 = Breite in Pixel 
; Objektbreite jetzt negativ 
; If XPos <s Dl then Ende 


; BOBOff ? 


; BOB nicht mehr in 'rt. 


; Objekt normal anschalten ? 


; Hintergrund speichern 
; Objekt in Hintergrund prin- 
ten 

; Ende 

; Write BOB only 

; Hintergrund zurückschrei¬ 
ben 


; Write Hintergrund only 
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rts 

po_bobon_xc: 

cmp.b #4,4(a0) ; Read Hintergrund only 

bne po_bobon_end 
bsr po_readhintergrund 
po_bobon_end: 
rts 

po_clipping: 

tstb 4(a0) ; Objekt normal anschalten ? 

beq po_bob_aus 

cmp.b #1,4(a0) 

beq po_bob_aus 

cmp.b #3,4(a0) 

beq po_bob_aus 

rts 


;— Masken/Offset/Blittersize berechnen 
DO = Y, Dl = X Position 
Rückgabe: DO = Blitterhöhe, Dl = Blitterbreite 
D2 = PositionOffset, D5 = Shiftwert 
D4 = muß zum Bitmapoffset addiert werden 


po_parameter: 
tst.w dO 
bpi po_para_ 1 
move.w 12(a0),d2 
lsl.w#1,d2 
move.w d0,d3 
neg.w d3 
mulu d3,d2 
add.w 10(a0),d0 
bra po_para_x 
po_para_ 1: 
move.w d7,d2 
sub.w d0,d2 
move.w d2,d0 
clr.l d2 

cmp.w 10(a0),d0 


; Y positiv ? 

; wenn ja, dann verzweigen 
; Breite Objekt Words 
; in Bytes 


; plus höhe Objekt 


; Screenhöhe 
; minus y-pos 
; DO = ergebnis 

; minus höhe 
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bmi po_para_x 

; negativ ? 

move.w 10(a0),d0 

; wenn positiv dann normale 
Height 

po_para_x: 

; DO = Blitterhöhe , D2 = Y- 
Offset 

tstw dl 

; X positiv ? 

bpi po_para_2 

; wenn ja, dann verzweigen 

neg.w dl 

; X-pos jetzt positiv 

move.w dl,d4 

; x-pos nach D4 

Isr.w#4 f d1 

; durch 16 teilen 

move.w 12(a0),d5 
sub.w dl, d5 
clr.l d3 

move.w dl,d3 

; Objektbreite nach D5 

Isl.w#1,d3 

; D3 = X-Offset 

add.l d3,d2 

; D2 = Position-Offset 

move.w d5,dl 
and.w#15,d4 
clr.w d5 
tstw d4 

; Dl = Blitterbreite 

beq po_para_44 
move.w #16, dö 


sub.w d4,d5 
subq.w#1,d4 
move.w #$ffff,d3 
po_para_shift: 

Isr.w#1,d3 

dbra d4,po_para_shift 

; D5 = real Shiftwert 

move.w d3,$44(a2) 
move.w d3,$46(a2) 
cmp.w#1,d1 
beq po_para_7 

; FirstMask 

move. w #$ffff,$46(a2) 
po_para_7: 

; LastMask 

move.Ut2,d4 

rts 

; Bitmapoffset -2 Bytes 

po_para_2: 

; X-Pos ist positiv 

move.w d1,d5 

; X-pos nach D5 
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and.w #15,d5 
Isr.w#4,d1 
move.w d6,d4 
sub.w d1,d4 
move.w d4,d1 
cmp.w 12(a0),d1 
bmi po_para_3 
move.w 12(a0),d1 
po_para_44: 
move.l #- 1,$44(a2) 
clr.l d4 
rts 

po_para_3: 

tst.wd5 

beq po_para_44 
move.w d5,d3 
subq.w #1,d3 
move.w #$ffff,d4 
po para_shifta: 

Isl.w#i,d4 

dbra d3,po_para_shifta 
move.w d4,$44(a2) 
move.w d4,$46(a2) 
cmp.w #1,dl 
beq po_para_4 
move.w #$ffff,$44(a2) 
po_para_4: 
clr.l d4 
rts 

Hintergrund wieder printen — 
po_ writehintergrund: 
tst.b 5(a0) 

bne po_ writehg_x 
rts 

po_writehg_x: 
move.w (aO),dO 


; D5 = Shiftwert 
; X-Pos durch 16 
; Screenbreite nach D4 

; Dl = Blitterbreite 
; Ergebnis - Objektbreite 
; hiernach normal weiter 
; Blitterbreite 

; First/LastMask 
; Bitmapoffset + 0 Bytes 


; FirstMask 
; Blitterbreite = 1 
; LastMask 

; Bitmapoffset + 0 Bytes 


; wurde ein Hintergrund 
schon gelesen ? 


; OldY 
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move.w 2(a0),d1 

bsr po_parameter 

move.l #- 1,$44(a2) 

move.l #$09f00000, $40 (a2) 

move.l 24(a0),a3 

add.l d2,a3 

lea 8(a1),a4 

move.w d6,d5 

sub.w d1,d5 

Isl.w#1,d5 

move.w d5,$66(a2) 

move.w 12(a0),d5 

sub.w d1,d5 

Isl.w#1,d5 

move.w d5,$64(a2) 

clr.l d3 

tstw 2(aO) 

bmi po_writehg_nox 
move.w 2(a0),d3 
Isr.w#4,d3 
Isl.w#1,d3 
po_ writehg_ nox: 
tstw (aO) 

bmi po_ writehg_ noy 
move.w (a0),d4 
mulu d6,d4 
ls\.\m,d4 
add.l d4,d3 
po_ writehg_noy: 
move.w 12(a0),d4 
mulu 10(a0),d4 
Isl.l #1,d4 
clr.w d5 

move.b 5(a1),d5 
subq.w #1,d5 
and.w #$3ff,d0 
Isl.w#6,d0 
and.w #$3f,dl 


; OldX 

; First/LastMask 
; BL TCONO/1 
; A3 = real Quelle A 


; ZModulo 


; AModulo 


; x-pos 
; X-Offset 


; Y-Offset 

; D3 = Bitmapoffset 


; D4 = Map-Size vom Objekt 


D5 = Loop-zähler 
Blittersize errechnen 
Dl = breite in Words 
DO = höhe in Pixel 
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add.wd0,d1 
po_ writehg_ loop: 
move.l a3,$50(a2) 
move.l (a4)+,a5 
add.l d3,a5 
move.l a5,$54(a2) 
move.w d1,$58(a2) 
po_ writehg_ wait: 
btst#14,$2(a2) 
tone po writehg_ wait 
add.l d4,a3 

dbra d5,po_writehg_loop 
rts 

Hintergrund speichern --- 
po_readhintergrund: 
move.b #1,5(a0) 

move.w 6(a0),0(a0) 
move.w 8(a0),2(a0) 
move.w (aO),dO 
move.w 2(a0),dl 
bsr po_parameter 
move.l #-1,$44(a2) 
move.l #$09100000,$40 (a2) 
move.l 24(a0),a3 
add.l d2,a3 
lea 8(a1),a4 
move.w d6,d5 
sub.w d1,d5 
lsl.w#1,d5 
move.w d5,$64(a2) 
move.w 12(a0),d5 
sub.w dl,d5 
Isl.w#1,d5 
move.w d5,$66(a2) 
clr.l d3 
tst.w2(a0) 


; Dl ist jetzt Blittersize 
; Quelle A 


; Ziel D 

; Blitter starten 

; Bit BBusy testen 
; wenn Null, dann Blitterende 


; Init = 1, Hintergrund schon 
mal gelesen 
; Ypos nach OldYpos 
; Xpos nach OldXpos 
; Y 
;X 

; First/LastMask 
; BLTCONO/1 
; A3 = Ziel D 


; AModulo 


; ZModulo 
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bmi po_readhg_nox 
move.w 2(a0),d3 
Isr.w#4,d3 
Isl.w#1,d3 
po_readhg_nox: 
tst.w(aO) 

bmi po_readhg_noy 
move.w (a0),d4 
mulu d6,d4 
tsl.l #1,d4 
add.l d4,d3 
po_readhg_noy: 
move.w 12(a0),d4 
mulu 10(a0),d4 
Isl.l#1,d4 
clr.wdS 

move.b 5(a1),d5 
subq.w#1,d5 
and.w #$3ff,d0 
Isl.w#6,d0 
and.w #$3f, dl 
add.w d0,d1 
po_readhg_loop: 
move.l a3,$54(a2) 
move.l (a4)+,a5 
add.l d3,a5 
move.l a5,$50(a2) 
move.w d1,$58(a2) 
po_readhg_ wait: 
btst#14,$2(a2) 
bne po_readhg_wait 
add.l d4,a3 

dbra d5,po_readhg_loop 
rts 


; x-pos 
; X-Offset 


; Y-Offset 

; D3 = Bitmapoffset 


; D4 = Map-Size vom Objekt 


; D5 = Loop-zähler 
; Blittersize errechnen 
; Dl = Breite in Words 
; DO = Höhe in Pixel 
; Dl ist jetzt Blittersize 

; Ziel D 


; Quelle A 
; Blitter starten 

; Bit BBusy testen 
; wenn Null, dann Blitterende 


Objekt Daten in Bitmap kopieren — 
po_ writeobjekt: 

move.w 6(a0),d0 ; Y 


119 





move.w 8(a0),d1 ; X 

bsr po_parameter 
Isl.w M8,d5 

Isl.w#4,d5 ; korrekter Shiftwert 

move.w dS,$42(a2) ; BLTCON1 

add.w tt$0fca,d5 
movem.l d5, (sp) 

move.w d5,$40(a2) ; BLTCONO 

move.l 20(a0),a5 

add.l d2,a5 ; A5 = Quelle A (real Shadow- 

Mask) 

move.l 16(a0),a3 

add.l d2,a3 ; A3 = Quelle B (real Image) 

lea 8(a1),a4 

move.w d6,d5 

sub.w d1,dS 

Isl.w Ml,d5 

move.w d5,$66(a2) ; ZModulo 

move.w d5,$60(a2) ; CModulo 

move.w 12(aO),d5 
sub.w d1,d5 
Isl.w Ml,d5 

move.w d5,$64(a2) ; AModulo 

move.w d5,$62(a2) ; BModulo 

clr.l d3 

tstw8(a0) 

bmi po_wrlteo_nox 

move.w 8(a0),d3 ; x-pos 

lsr.wM4,d3 

Isl.w Ml,d3 ; X-Offset 

po_writeo_nox: 
tst.w6(aÖ) 
bmi po_writeo_noy 
move.w 6(a0),d5 
mulu d6,dS 

Isl.l M1,d5 ; Y-Offset 

add.l d5,d3 
po_ writeo_noy: 
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; D3 = Bitmapoffset 


sub.l d4,d3 
move.w 12(a0),d4 
mulu 10(a0),d4 
Isl.l#1,d4 
move.w 14(a0),d5 
subq.w #1,d5 
and.w #$3ff,d0 
and.w #$3f,d1 
Isl.w #6, dO 
add.wdO.dl 
po_ writeojoop: 
move.l a5,$50(a2) 
move.l a3,$4c(a2) 
move.l (a4)+,a6 
add.l d3,a6 
move.l a6,$48(a2) 
move.l a6,$S4(a2) 
move.w d1,$58(a2) 
po writeo_wait: 
btst#14,$2(a2) 
bne po_ writeo_ wait 
add.l d4,a3 

dbra d5,po_writeo_loop 
movem.l (sp)+,d5 
move.w 14(a0),d0 
cmp.b 5(a1),d0 
beq po_writeo_end 
sub.b 5(a1),d0 
neg.b dO 
subq.w Ul,dO 
sub.w #$0400,d5 
move.w d5,$40(a2) 
clr.w $42 (a 2) 
clr.w $72 (a 2) 

po_ writeo_loop2: 
move.l a5,$50(a2) 
move.l (a4)+,a6 


; D4 = Map-Size vom Objekt 
; DS = Loop-zähler 


; Dl = breite in Words 
; Dl ist jetzt Blittersize 

; Quelle A (ShadowMask) 
; Quelle B (Image) 


; Quelle C (BitMap) 

; Ziel D (BitMap) 

; Blitter starten 

; Bit BBusy testen 
; wenn Null, dann Blitterende 


; BLTCONO wert holen 
; Depth BOB nach DO 
; s Anzahl Planes Screen ? 

; Wenn ja, dann Ende 
; Planes-Anzahl abziehen 
; Positiv machen 

; DMA-Kanal B = aus 
; BLTCONO 
; NO Shift B 

; Clear Datenregister B (Fi¬ 
gur) 

; Quelle A (ShadowMask) 



add.l d3,a6 

move.l a6,$48(a2) ; Quelle C (BitMap) 

move.l a6,$54(a2) ; Ziel D (BitMap) 

move.w d1,$58(a2) ; Blitter starten 

po_ writeo_ wait2: 

btst #14,$2(a2) ; Bit BBusy testen 

bne po_writeo_wait2 ; wenn Null, dann Bl itterende 

dbra d0,po_writeojoop2 

po_ writeo_end: 
rts 

po_bitmap: dc.l 0 


7.6 Masken und Grafikpuffer 

Wie aus der ObjektArgs-Struktur zu ersehen ist, sind einige Puf¬ 
fer für die Verwaltung nötig. Wie diese berechnet werden, wurde ja 
bereits schon beschrieben. 

Man könnte jetzt natürlich umständlich für jedes Objekt die Puf¬ 
fergrößen berechnen. Das wäre jedoch viel zu umständlich und 
speicherraubend. Einfacher geht es, wenn eine Routine universell 
den Puffer für alle Objekte berechnen könnte. Man übergibt jedig- 
lich die Adresse der ObjektArgs-Struktur und die Funktion errech¬ 
net sich die Puffergröße über die entsprechenden Parameter 
selbst. 

Es müssen also zwei Funktionen geschrieben werden, die einmal 
den SaveBuffer-Puffer berechnen und einmal den ShadowMask- 
Puffer mit der dazugehörigen Maske. Den CollMask-Puffer brau¬ 
chen wir nicht zusätzlich zu berechnen, denn dieser sieht ja genau¬ 
so aus, wie der ShadowMask-Puffer. Es sei denn, sie wollen für 
jedes Objekt eine eigene Collisionsmaske entwerfen. 
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Aufbau der Coll b/w. ShadaB MIMt vom BOB 


Die ein¬ 
zelnen Bit- 
planes eines 
BOB«. 



Bi tpt«n*i Bi tpl jm«2 Bi tpl an*3 B i tp 1 jin«4 B i tp 1 an»5 



Logisch ODER 
aller Bitplanes 
eines BOBs ist 
die Coli— bzw. 
Shadowmask. 


Haskt 



Achtungf 

Dabei ist auch zu baachtesn, 
das die Maske, wie die Bit — 
pianes ein Word groesser ist 
als normal. Bi es es wurde bei 
diesem Beispiel nicht beachtet. 


Diese Funktionen sind bis auf das Erstellen der Schattenmaske 
ziemlich leicht zu programmieren. Wie schon erwähnt, handelt es 
sich dabei um ein logisches ODER aller Bitmaps vom Objekt. Das 
Einfachste wäre wohl mit dem Maschinensprachebefehl OR alle 
Bitmaps miteinander zu verknüpfen und das Ergebnis in den Sha- 
dowMask-Puffer abzulegen. Diese Methode funktioniert zwar, sie 
ist aber nicht gerade sehr schnell. Es gibt noch eine zweite Metho¬ 
de - sie werden es sich sicherlich schon denken können - mit dem 
Blitter. Damit sie sich nicht den Kopf darüber zerbrechen müssen, 
stelle ich ihnen zwei Funktionen vor, die das Erstellen der ge¬ 
wünschten Puffer übernehmen. Die eine, welche sich InitMaskf) 
nennt, benötigt zwei Parameter: Im Adressregister AO die Adresse 
der Objekt Args-Struktur und im Datenregister DO eine entspre¬ 
chende Bedingung. Diese gibt an, ob vorher Speicher reserviert 
werden soll, und (oder) der CollMask-Puffer gleich dem Shadow- 
Mask -Puffer sein soll. 

Die andere nennt sich GetSaveBuffer() und benötigt auch zwei 
Parameter. Ihr muß im Adressregister AO die Adresse der Objekt- 
Args-Struktur und im Adressregister AI die Adresse der BitMap- 
Struktur übergeben werden. Diese Funktion reserviert den Save- 
Buffer-Puffer für die Hintergrundspeicherung und trägt die An¬ 
fangsadresse des Puffers in die ObjektArgs-Struktur ein. 
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Routine: InitMask (A0,D0) (ObjektArgs.Bedingung) 

Parameter: AO = Adresse der ObjektArgs-Struktur 

DO = 0 - ShadowMask-Puffer wird nicht reserviert, 
sondern muß vorher schon reserviert worden sein. Es 
wird nur die Schattenmaske erzeugt und in diesem 
Puffer abgelegt. 

DO = 1 - ShadowMask-Puffer wird automatisch reser¬ 
viert und Schattenmaske dort abgelegt. 

DO = 2 - Genau wie "1", nur wird zusätzlich der Coll- 
Mask-Zeiger gleich dem ShadowMask-Zeiger gesetzt. 
Rückgabe: DO = 0, alles OK! 

DO =-1, nicht genug Speicher vorhanden. 

Erklärung: Initialisiert den ShadowMask-Puffer mit der entspre¬ 
chenden Schattenmaske. 

Routine: GetSaveBuffer (A0,A1) (ObjektArgs.BitMap) 

Parameter: AO = Anfangsadresse der ObjektArgs-Struktur 
AI = Anfangsadresse der BitMap-Struktur 
Rückgabe: DO = 0, dann ist alles in Ordnung! 

DO =-1, dann ist nicht genug Speicher vohanden! 
Erklärung: Reserviert Speicher für die Hintergrundspeicherung 
und schreibt die Anfangsadresse in den SaveBuffer- 
Offset. 

Mit den beiden Funktionen können wir den gewünschten Puffer 
jetzt erzeugen. Doch wie geben wir diesen wieder frei? Das erledi¬ 
gen die zwei folgenden Funktionen. Diese brauchen nicht näher er- 
leutert zu werden, da sie sehr einfach aufgebaut sind. 

Routine: FreeMask (AO) (ObjektArgs) 

Parameter: AO = Anfangsadresse der ObjektArgs-Struktur 
Erklärung: Gibt den ShadowMask-Speicher, der mit InitMask () 
für die Schattenmaske reserviert worden ist, wieder 
zurück. 
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Routine: FreeSaveBuffer (A0,A1) (ObjektArgs.BitMap) 

Parameter: AO - Zeiger auf ObjektArgs-Struktur 
AI - Zeiger auf BitMap-Struktur 

Erklärung: Gibt den Speicher, auf den SaveBuffer zeigt, wieder 
frei. 

Als letztes nun die vier Listings. Diese sind ausführlich dokumen¬ 
tiert. Eine weitere Beschreibung ist deswegen nicht erforderlich. 

ShadowMask anlegen 

AO = ObjektArgs, DO = Bedingung 

InitMask: 


tstwdO 

beq im_ 1 
movem.l dO,-(sp) 

; Muß ShadowMask-Puffer re¬ 
serviert werden ? 

move.w 12(a0),d0 

; WordWidth 

Isl.w#1,d0 

; mal 2=Bytes 

mulu 10(a0),d0 

; mal Höhe = ShadowMask- 
Size 

move.l #$10002,dl 
move.l #$4,a6 
move.l (a6),a6 
movem.l aO,-(sp) 

; Chip und ClearMem 

jsr-198(a6) 
movem.l (sp)+,aO 
tstldO 
bne im_ 1a 
movem.l (sp)+,dO 

; AllocMem 

move.l #-1,d0 
rts 

im_ la: 

; Error 

move.l d0,20(a0) 

movem.l (sp)+,dO 
cmp.w#2,d0 
bne im 1 

; ShadowMask-Adresse spei¬ 
chern 
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move.l 20(a0),28(a0) 
im_1: 

move.l #$dff000,a6 

move.l #$OdfcOOOO, $40 (a6) 

move.l #- 1,$44(a6) 

clr.l $62(a6) 

clr.w $66(a 6) 

move.w 12(a0),d5 

move.w 10(a0),d6 

move.w d5,d0 

Isl.w#1,d0 

mulu d6,d0 

and.w #$3ff,d6 

Isl.w#6,d6 

and.w #$3f,d5 

add.wd6,d5 

move.w 14(a0),d1 

sub.w#1,d1 

move.l 20(a0),a1 

move.l 16(a0),a2 
initmaskjoop: 
move.l a2,$50(a6) 

move.l a1,$54(a6) 
move.l a1,$4c(a6) 

move.w d5,$58(a6) 

initmask_wait: 
btst tt14,$2(a6) 
bne initmask_wait 
add.l d0,a2 

dbra dl,initmaskjoop 

clr.l dO 

rts 

Listingende ~~ 


; BLTCONO: A + B = D 
; First/Last Mask 
; Modulowert von Quelle B 
; Modulowert von Ziel D 
; Breite in Words 
; Höhe in Pixel 
; Breite nach DO 
; mal 2 = Breite in Bytes 
; DO = ImageMapSize 
; Blittersize errechnen 
; D5 = Breite in Words 
; D6 s Höhe in Pixel 
; D5 ist jetzt Blittersize 
; Anzahl Planes nach Dl 
; minus 1, wegen DBra 
; AI = ShadowMask (Ziel D 
und Quelle B) 

; A2 = Image-Zeiger 

; Anfangsadresse von Quelle 
A 

; Anfangsadresse von Ziel D 
; Anfangsadresse von Quelle 
B = Ziel D 

; BLTSIZE und Blitteroperati- 
on starten 

; Blitter fertig? 

; nächste ImageMap 

; No Errors 
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;— Speicher für SaveBuffer reservieren 
AO = ObjektArgs; AI = BitMap 

GetSaveBuffer: 


move.w 12(a0),d0 

; WordWidth 

Isl.w#1,d0 

; mal 2 s Bytes 

mulu 10(a0),d0 

; mal Höhe = MapSize 

move.b 5(a1),d1 

; Screen-Depth nach Dl 

and.w «$00ff,dl 

; Hi-Byte löschen 

mulu d1,d0 

; Screen-Depth mal MapSize 

move.l #$10002,dl 

; Chip + ClearMem 

move.l tt$4,a6 


move.l (a6),a6 


movem.l aO,-(sp) 


jsr-198(a6) 

; AllocMem 

movem.l (sp)+,aO 


tst.l dO 


bne gsb_ 1 


move.l #-1,d0 

; Error 

rts 



gsb_ 1: 

move.l d0,24(a0) ; SaveBuffer-Zeiger init. 

clr.l dO 

rts 

Listingende — 


; — ShadowMask-Puffer wieder freigeben — 

;— AO = ObjektArgs — 

FreeMask: 

move.l 20(a0),a1 ; ShadowMask-Zeiger 

cmp.UtO.al ; vorhanden? 

bne fm_ 1 
rts 


fm_ 1: 
clr.l 20(a0) 
move.w 12(a0),d0 
tsi.w#1,d0 
mulu 10(a0),d0 


; ShadowMask-Zeiger löschen 
; WordWidth 
; mal 2 = ByteWidth 
; mal Höhe = ShadowMask- 
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Size. 


move.l #$4,a6 
move.l (a6),a6 

jsr -210(a6) ; FreeMem 

rts 

Listingende — 


■ SaveBuffer-Speicher wieder freigeben 


AO = ObjektArgs; AI = BitMap 
FreeSaveBuffer: 
move.w 12(aO),dO 
IsI.wFl.dO 
mulu 10(a0),d0 
move.b 5(a1),d1 
and.w FSOOff.dl 
mulu dl.dO 
move.l 24(a0),a1 
cmp.lFO.al 
bnefsb 1 


WordWidth 
mal 2 = Bytes 
mal Höhe = MapSize 
Screen-Depth nach Dl 
Hi-Byte löschen 
Screen-Depth mal MapSize 


rts 

fsb_1: 

clr.l 24(a0) ; Save Buffer-Zeiger löschen 

move.l F$4, aß 
move.l (a6),a6 

jsr -210(a6) ; FreeMem 

rts 

Listingende — 
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7.7 BOB - Routinen 

Ein Blitterobjekt (BOB) kann in mehreren Arten über den Bild¬ 
schirm bewegt werden. Einmal ganz normal, über eine BitMap oder 
doppeltgepuffert über mindestens zwei BitMaps. Auf die letzte Me¬ 
thode wird im Kapitel 7.10 eingegangen. Wir werden hier auf das 
ganz einfache Bewegen eines Objekts über einer BitMap eingehen. 

Dazu muß auf jedem Fall der Hintergrund jedesmal gerettet wer¬ 
den, ansonsten würden wir das Objekt wie einen Pinsel benutzen. 
Dazu müssen wir nach folgender Art vorgehen: 

1. alten Hintergrund zurückschreiben (an alte Positionen) 

2. Hintergrund ab den neuen Positionen retten 

3. Objekt in den Hintergrund schreiben 

Das sind immerhin drei Schritte, die auszuführen sind. Bei 12 Ob¬ 
jekten ist das ein ganz schöner Aufwand, da wir ja alle drei Schritte 
jedesmal für jedes einzelne Objekt durchführen müssen. Damit die¬ 
ser Aufwand so klein wie möglich gehalten wird, stelle ich ihnen ei¬ 
nige Routinen vor, die jeweils für alle Objekte nur einmal aufgerufen 
werden. Dabei spielt es keine Rolle, wieviele Objekte dargestellt 
werden sollen. 

Das Prinzip der Funktionen ist ziemlich einfach. In der Variablen 
BOBOFF (ObjektArgs-Struktur) wird ja festgelegt, welcher Schritt 
gerade ausgeführt werden soll. Wir legen uns jetzt einfach eine Ta¬ 
belle an, in der alle Objekte enthalten sind und rufen zum Beispiel 
die Funktion auf, welche jetzt für alle Objekte den Hintergrund zu¬ 
rückschreibt, also BOBOFF auf den Wert 3 setzt. Nach genau die¬ 
sem Prinzip laufen auch die anderen Funktionen ab. 

Achtung! - Bei allen Funktionen, die gleich beschrieben werden, 
muß sich zusätzlich die Routine PrintObjekt () im Speicher befin¬ 
den, denn die Funktionen greifen auf diese Routine zurück, um die 
Objekte darstellen zu können. 
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Die Funktionen benötigen nur einen Parameter. Nämlich in der 
Variablen printbobJabelle die Adresse der BOB-Tabeile, in der alle 
Objekte enthalten sind. Diese Variable muß vier Bytes lang sein 
und von ihnen selbst angelegt werden. Zum Beispiel: 

printbob_tabelle: dc.l 0 

Die BOB-Tabelle ist folgendermaßen aufgebaut: 


BOB-Tabelle: (Länge mindestens 6 Bytes) 


Offset 

Tvd 

Bezeichnuna 

Beschreibuna 

00 

Word 

Count 

Anzahl ObjektArgs-Strukturen 

02 

Long 

ObjektArgsO 

Zeiger auf ObjektArgs-Struktur 
von BOB 0 

06 

Long 

ObjektArgsl 

Zeiger auf ObjektArgs-Struktur 
von BOB 1 


... so oft wie in Count angegeben ist. 

In Count wird angegeben, wieviel ObjektArgs-Strukturen die 
BOB-Tabelle enthält. Ab Offset zwei stehen die Anfangsadressen 
der ObjektArgs-Strukturen. Dabei besitzt das zuletzt eingetragene 
Objekt die höchste Priorität, verdeckt alle dahinterliegenden Objek¬ 
te. Nun zu den eigentlichen Funktionen. Sie werden hier in Kurz¬ 
form beschrieben. Danach folgen die dazugehörigen Listings. 

Routine: WriteBackgroundsOnly (printbobJabelle) (BOB-Tabelle) 
Parameter: printbobjabelle - Adresse der BOB-Tabelle, in der alle 
BOBs enthalten sind. 

Erklärung: Schreibt den Hintergrund von allen BOBs an den alten 
Positionen in die BitMap zurück. 
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Routine: ReadBackgroundsOnly (printbobjabelle) (BOB-Tabelle) 
Parameter: siehe WriteBackgroundsOnly ()' 

Erklärung: Kopiert den Hintergrund von allen BOBs ab den neuen 
Positionen aus der BitMap in den SaveBuffer-Speicher. 

Routine: WriteBobsOnly (printbobjabelle) (BOB-Tabelle) 

Parameter: siehe WriteBackgroundsOnly () 

Erklärung: Kopiert die BOB-Imagedaten von allen BOBs in die Bit- 
Map (Hintergrund). 


Hier die dazugehörigen Listings: 


;— Nur SaveBuffer-Daten in BitMap zurückkopieren 
printbob_tabelle = BOB-Tabelle 


WriteBackgroundsOnly: 
move.l printbob_tabelle(pc),a 1 
move.w (a1)+,d0 
tst.wdO 

beq writebackgroundsoniy_end 
clr.l dl 

move.w d0,d1 
Isl.w#2,d1 
add.l d1,a1 
subq.w #1,d0 
wbgjoop: 
move.l -(a1),a0 
cmp.l #0,a0 
beq wbgjoop 1 
move.b #3,4(a0) 
movem.l d0/a0-a1,-(sp) 
bsr printobjekt 
movem.l (sp)+,d0/a0-a1 
wbgjoopl: 

dbra dO, wbgjoop 
writebackgroundsonly_end: 
rts 

;— Listingende — 


; Anzahl Einträge 


; Anzahl mal 4 
; Zeiger auf letzten Eintrag 
; Anzahl minus 1 

; Zeiger auf ObjektArgs 
; überhaupt vorhanden ? 

; Write Background only 
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Nur Hintergrund von BitMap nach SaveBuffer kopieren — 
;— printbob_tabe!ie = BOB-Tabelle 


ReadBackgroundsOnly: 
move.l printbob_ tabelle(pc),a 1 
move.w (a1)+,d0 
tstwdO 

beq readbackgroundsonly_end 
clr.l dl 

move.w dO, dl 
Isl.w #2,dl 
add.l d1,a1 
subq.w #1,d0 
rbjoop: 
move.l -(a1),a0 
cmp.l #0,a0 
beq rbjoopl 
move.b #4,4(a0) 
movem.l d0/a0-a1,-(sp) 
bsr printobjekt 
movem.l (sp)+,d0/a0-a1 
rbjoopl: 

dbra dO, rbjoop 
readbackgroundsonly_ end: 
rts 

Listingende — 


; Anzahl Einträge 


; Anzahl mal 4 
; Zeiger auf letzten Eintrag 
; Anzahl minus 1 

; Zeiger auf ObjektArgs 
; überhaupt vorhanden ? 

; Read Background only 


Nur BOB-Imagedaten in BitMap kopieren ~~ 
printbob_ tabeile = BOB-Tabelle 

WriteBobsOnly: 
move.l printbob_tabelle(pc),a 1 
move.w (a1)+,d0 ; Anzahl Einträge 

tstwdO 

beq writebobsonly_end 
clr.l dl 

move.w dO,dl 
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Isl.w#2,d1 
add.l d1,a1 
subq.w#1,d0 
wbjoop: 
move.l -(a1),a0 
cmp.l#0,a0 
beq wbjoopl 
move.b #2,4(a0) 
movem.l d0/a0-a1,-(sp) 
bsr printobjekt 
movem.l (sp)+,d0/a0-a1 
wbjoopl: 

dbra dO, wbjoop 
writebobsonly_end: 
rts 

Listingende — 


printbob_tabelle: dc.l 0 


; Anzahl mal 4 
; Zeiger auf letzten Eintrag 
; Anzahl minus 1 

; Zeiger auf ObjektArgs 
; überhaupt vorhanden ? 

; Write BOB only 


; Variable für BOB-Tabelle 


7.8 IFF-Brushes in BOBs umwandeln 

Jetzt wissen wir, wie ein BOB aufgebaut ist und wie wir diesen 
darstellen können. Doch ist es ein ziemlich großer Aufwand, einen 
BOB zu zeichnen. Entweder legen wir die Grafikdaten direkt im 
Speicher ab, über umständliche "dc.b" -Assemblerbefehle oder wir 
besitzen einen BOB-Editor, mit dem wir unsere Grafik zeichnen 
und abspeichern können. Doch wer besitzt schon einen BOB-Edi¬ 
tor? Die Editoren, die erhältlich sind, sind in der Regel nicht gerade 
sehr komfortabel bzw. leistungsfähig. Die meisten unter ihnen wer¬ 
den aber bestimmt ein Malprogramm ihr eigen nennen können, das 
bekannteste ist wohl Deluxe-Paint. Dieses enthält unter anderem 
einige Brush-Funktionen. Dafür werden Teile aus einer Grafik her¬ 
ausgeschnitten und können auf vielfältige Weise manipuliert und auf 
Diskette abgespeichert werden. Diese Brushes oder anders Pinsel 
sind nichts anderes als Blitterobjekte - kurz BOBs. 
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Um jetzt aber einen solchen Brush in sein Programm einbauen zu 
können, müßte man den Autbau der Brushdatei kennen. Dieser ist 
jedoch relativ einfach, denn alle Brushes werden im sogenannten 
IFF-Standart abgespeichert. Dieser Standart ist auf dem Amiga 
sehr verbreitet. Er wird nicht nur für die Grafik, sondern auch für 
den Sound oder Text benutzt. Durch diesen Standart ist der Daten¬ 
austausch zwischen verschiedenen Programmen möglich gewor¬ 
den. 

Auf den genauen Aufbau wollen wir hier nicht weiter eingehen. Ich 
werde ihnen aber ein Programm vorstellen, mit dem sie IFF-Brus- 
hes in den Speicher laden und als BOBs abspeichern können. 

Die BOB-Datei, welche auf Diskette abgespeichert wird, gliedert 
sich in zwei Teile: In den Header und den eigentlichen Grafikteil. In 
dem Header, der die ersten 40 Bytes darstellt, stehen alle nötigen 
Parameter, die für das Darstellen des BOBs erforderlich sind. Da¬ 
nach folgen dann die eigentlichen Grafikdaten. 

Aufbau der BOB-Headerdatei: 


Offset 

Tvp 

Bezeichnuna 

Beschreibuna 

00 

Long 

TBOB 

Kennzeichnung der Headerdatei 

04 

Long 

VI.0 

T ransformerversion 

08 

Long 

Länge 

Länge der gesammten BOB- 
Datei 

12 

Long 

HEAD 

4-Byte Kennzeichnung 

16 

Word 

Höhe 

Höhe des BOBs in Zeilen 

18 

Word 

WordBreite 

Breite des BOBs in Words (1 
Word = 16 Bit) 

20 

Word 

Breite 

Breite des BOBs in Pixeln 

22 

Word 

Tiefe 

Anzahl Bitmaps des BOBs 

24 

Word 

Frei 

unwichtig 

26 

Word 

YPos 

Y-Position vom BOB 

28 

Word 

XPos 

X-Position vom BOB 
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30 

Word 

Frei 

unwichtig 

32 

Long 

BODY 

Kennzeichnung der Imagedaten 

36 

Long 

Grafiklänge 

Länge der eigentlichen Grafik¬ 
daten 

40 

Byte 


ab hier liegen die eigenlichen 
Grafikdaten 

Beschreibung der Parameter: 



TBOB (Offset 00): 

Kennzeichnung des Brushformers. Die ersten 4 Bytes enthalten 
die vier Großbuchstaben TBOB. Für den Benutzer nicht von Be¬ 
deutung. 

VI .0 (Offset 04): 

Enthält die Versionsnummer des Brushformers, mit dem der BOB 
erstellt wurde. Auch wieder als vier Großbuchstaben. 

Länge (Offset 08): 

Enthält die gesamte Länge der BOB-Datei in Bytes. 

HEAD (Offset 12): 

Kennzeichnung, daß ab hier die eigentlichen Parameter folgen. 

Höhe (Offset 16): 

Hier steht die Höhe des Objekts in Zeilen. 

WordBreite (Offset 18): 

Enthält die Breite des Objekts in Words. 
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Breite (Offset 20): 

Breite des Objekts in Pixeln (unwichtig) 

Tiefe (Offset 22): 

Enthält die Anzahl BitMaps, die das Objekt groß ist, also aus wie¬ 
viel Farben das Objekt maximal besteht. 

YPos,XPos (Offset 26/28): 

Enthält die Koordinaten des Objekts. In dieser Brushfomer-Version 
besitzten diese Variablen immer den Wert Null. 

BODY (Offset 32): 

Kennzeichnung, daß ab hier die eigentlichen Gratikinformationen 
folgen. Wird als vier Großbuchstaben abgelegt. 

Grafiklänge (Offset 36): 

Hier steht die Länge der eigentlichen Grafikdaten, also die gesam¬ 
ten Imagedaten zusammen. 

Imagedaten (Offset 40): 

Ab dem 40. Byte liegen die eigentlichen Imagedaten. Erst die von 
BitMap 1, danach die von BitMap 2 usw. So viele, wie in Tiefe an¬ 
gegeben ist. 


Das folgende Listing des Brushformers V1.0 ist sehr gut dokumen¬ 
tiert und sie finden es auch auf der beigefügten Diskette. 
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■— Programmname = Brushformer 
■— wandelt ein Brush in einen BOB um 


— Start von cli oder wb — 

move.l 4,a6 

move.NtO.al 

jsr -294(a6) 

move.l d0,a4 

tst.l $ac(a4) 

bne Start 

move.l 4,a6 

lea $5c(a4),a0 

jsr •384(a6) 

jsr -372(a6) 


Start: 

bsr openiibrary 
bsr openworkscreen 
bsr openworkwindow 
bsr initmenü 

main: 

bsr message 

cmp.l tt" NEIN" ,d5 
beq main 

bra auswerten 


EXIT: 

bsr closeworkwindow 
bsr closeworkscreen 
bsr closelibrary 
move.l bob_planes_base,a1 

cmp.lttO.al 


; FindTask () 


; Cli Start 


; WaitPort () 

; Message abholen, weil Wor- 
bench Start 


; Message abholen (Menüs 
abfragen) 

; Menüpunkt angewählt? 

; wenn nicht, dann weiter 
warten 

; wenn ja, dann Menünummer 
verarbeiten 


; Befindet sich ein BOB im 
Speicher 

; wenn nicht, dann weiter 
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beq exit_ 1 

move.l bob_planes_size,dO ; sonst Speicher wieder 

move.l 4,a6 ; freigeben 

jsr -210(a6) ; FreeMem () 

exit_ 1: 

rts ; PRG.-Ende 

Arbeitsfenster öffnen — 
openworkwindow: 

move.l workscreenhd,workshd ; Screenadresse 
move.l #workwindow,aO ; Window-Struktur 

move.l intbase,a6 ; intuition.basis 

jsr -204(a6) ; OpenWindow () 

move.l dO,workwindowhd ; Windowadresse 

rts 


Arbeitswindow schließen — 
cioseworkwindow: 
move.l workwindowhd,aO 
move.l intbase,a6 
jsr -72(a6) 
rts 


; Windowadresse 
; intuition.basis 
; CloseWindow () 


Arbeitsscreen öffnen — 
open workscreen: 
move.l #work$creen,aO 
move.l intbase,a6 
jsr -198(a6) 

move.l dO,workscreenhd 
rts 


; Screen-Struktur 
; intition.basis 
; OpenScreen () 

; Screenadresse 


Arbeitsscreen schließen 
cioseworkscreen: 
move.l workscreenhd,aO 
move.l intbase,a6 
jsr -66(a6) 
rts 


; Screenadresse 
; intuition.basis 
; CloseScreen () 
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Bibliotheken öffnen — 
openlibrary: 
move.l #intname,a 1 
bsr openlib 
move.l dO,intbase 
move.l #gfxname,a 1 
bsr openlib 
move.l dO,gfxbase 
mo ve.l #dosname,a 1 
bsr openlib 
move.l dO,dosbase 
rts 

openlib: 
clr.l dO 
move.l 4,a6 
jsr -552(a6) 
rts 

Bibliotheken schließen — 
closelibrary: 
move.l dosbase,al 
move.l 4,a6 
jsr-414(a6) 
move.l intbase,a1 
move.l 4,a6 
jsr -414(a6) 
move.l gfxbase.al 
move.l 4,a6 
jsr -414(a6) 
rts 

;— Menü aktivieren — 
initmenü: 
move.l intbase,a6 
move.l workwindowhd,aO 
move.l UrnenÜ0,a1 
jsr -264(a6) 
rts 


; Intuitionsbiblitothek 
; öffnen 

; Intuitionsbasisadresse 
; Graphicsbibliothek 
; öffnen 

; Graphicsbasisadresse 
; Dosbibliothek 
; öffnen 

; Dosbasisadresse 


; Version = 0 
; Execbasis 
; OpenLibrary () 


; Dosbasisadresse 
; Execbasisadresse 
; CloseLibrary () 

; Intuitionsbasisadresse 
; Execbasisadresse 
; CloseLibrary () 

; Graphicsbasisadresse 
; Execbasisadresse 
; CloseLibrary () 


; Intuitionsbasis 
; Arbeitswindowadresse 
; Menüadresse 
; SetMenüStrip () 
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Message abholen (Menüs abfragen) — 


message: 
move.l 4,aß 

move.l workwindowhd,aO 
move.l 86(a0),a0 
jsr -372(aß) 
cmp.l#0,d0 
beqmessageend 
move.l dO,aO 
move.l $14(a0),d6 
messagemenü: 
cmp.l #$100,dß 

bnemessageend 
move.w $18(a0),d7 
cmp.w #$ffff,d7 
beq messageend 
;— Menünummer auswerten — 
move.w d7,dß 
Isr.w #8,dß 
Isr.w #3,dß 

move.w d7,d5 
Isl.w#8,d5 
Isl.w#3,d5 
Isr.w #8, dß 
Isr.w #3,dß 

Isl.w #5, d7 
Isr.w #8,d7 
Isr.w #2,d7 
rts 

messageend: 
move.l#" NEIN",dß 
rts 


; Execbasisadresse 
; Arbeitswindowadresse 
; UserMessagePort-Adresse 
; GetMsg () 

; Message vorhanden ? 

; keine Message - Ende 

; IDCMP-Flags nach Dß 

; Wurde ein Menüpunkt ange¬ 
wählt? 

; Wenn nicht - Ende 
; Menünummer holen 
; kein Menü ? 

; dann Ende 


; dß = untermenüpunktnum- 
mer 


; dß = menünummer oder 
"NEIN" 


; d7 - menüpunktnummer 
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Menüpunkt ausführen — 
auswerten: 
clr.wdO 
auswertö: 
cmp.w#0,d5 
beq auswertl 
bra main 


auswertl: 

move.l Fsprungtabelle 1,aO 
auswertung: 
cmp.w d0,d7 
beq routine 
cmp.w #6,dO 

beq main 
add.w#1,dO 
add.l #4,a0 

bra auswertung 
routine: 

move.l (a0),jump+2 
jump: 
jmp jump 


sprungtabellel: 

dc.l LOAD_BRUSH,SAVE_BOB, 


; Menü 0? 

; wenn nicht, dann Haupt¬ 
schleife 


; Menü 0 

; wurde ein Menü angewählt ? 

; ja, dann auf rufen 
; max. Anzahl Menüpunkte = 
6 

; zurück zur Hauptschleife 
; nächsten Menüpunkt 
; nächste Menüadresse in Ta¬ 
belle 

; weiter abfragen 

; Menüfunktion ausführen 

; Auf keinen Fall eine 0 er¬ 
setzen 

; Das ist der Unterschied zu 
SEKA! 


;— IFF-Brush in Speicher laden und in BOB um wandeln — 
load_brush: 
bsr loadbrush 
bra main 
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loadbrush: 

move.l bob_planes_base,a1 

cmp.l#0,a1 
beq loadbrush_ 1 
move.l bob_pianes_size,dO 
move.l 4,a6 
jsr -210(a6) 
clr.l bob_planes_base 
loadbrush_ 1: 

IFF-Header in Speicher laden - 
move.l #1005, d2 
move.l #filename,d1 
move.l dosbase,a6 
jsr -30(a6) 
move.l dO,filehd 
tst.l dO 
bne okl 
lea text2,a0 
bsr printtext 
rts 
okl: 

move.l filehd,d1 
move.l #puffer,d2 
move.l #12,d3 
move.l dosbase,a6 
jsr -42(a6) 
move.l filehd.dl 
move.l dosbase,a6 
jsr -36(a6) 

ab hier Diskheader auswerten 
lea puffer,aO 
cmp.l #"FORM",(aO) 
beq ok2 
lea text3,a0 
bsr printtext 
rts 


; Befindet sich ein BOB im 
Speicher 

; wenn nicht, dann weiter 

; sonst Speicher wieder 
; freigeben 
; FreeMem () 


; Mode = OLD 
; Filename 

; OPEN () 

; Fileadresse speichern 
; File auf Disk ? 

; wenn ja, dann okl 
; Textadresse 
; und ausgebn (Error) 


; Fileadresse 
; Puffer für 
; ersten 12 Bytes 

; READ () 

; File wieder schließen 
;CLOSE0 


; liegt IFF-Datei vor ? 

; wenn ja, dann ok2 
; textadresse 
; und ausgeben (Error) 
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ok2: 


cmp.t #"ILBM',8(aO) 

; liegt ILBM-Format vor ? 

beqok3 

; wenn ja, dann ok3 

lea text4,aO 

; textadresse 

bsr printtext 

; und ausgeben (Error) 

rts 

; Programmende 

ok3: 


Speicher für Brush reservieren -- 

move.l 4(a0),d0 

; Dateigröße 

move.l #$10002,dl 

; Chip- und Free-Memory 

move.l 4,a6 


jsr -198(a6) 

; AllocMem () 

move.l dO,brush_base 

; Adresse speichern 

tst.l dO 

; konnte Speicher reserviert 


werden ? 

bne ok4 

; wenn ja, dann ok4 

lea text5,a0 

; sonst Erromeldung 

bsr printtext 

; ausgeben 

rts 


ok4: 


Brush in Speicher laden 


move.l #1005, d2 

; Modus = Alt 

move.l #filename,d1 

; Filename 

move.l dosbase,a6 


jsr -30 (a6) 

; OPEN () 

move.l dO,filehd 

; Fileadresse 

move.l dO,d1 


move.l brush_base,d2 

; Datenpuffer 

move.l puffer+4,d3 

; Datenlänge 

move.l dosbase,a6 


jsr -42(a6) 

; READ () 

move.l filehd.dl 

; Fileadresse 

move.l dosbase,a6 


jsr -36(a6) 

; CLOSE 


IFF-Brush-Struktur auswerten — 

move.l #chunktabelle,a1 ; Brush-Chunkadressen su¬ 

chen 


move.l #chunkadresse,a2 

biffsearchO: 

move.l brush_base,aO 
biffsearchl: 
cmp.UtO,(a1) 

beq chunk_search_ende 
move.b (aO)+,iffchunk 
move.b (aO)+,iffchunk+1 
move.b (a0)+,iffchunk+2 
move.b (a0)+,iffchunk+3 
move.l iffchunk,d6 
move.l (a1),d7 
cmp.l d7,d6 
beq biffsearch3 

sub.l#3,a0 
bra biffsearchl 
biffsearch3: 

sub.l # 4 , aO 
move.l (a2),a4 
move.l a0,(a4) 

add.l#4,a1 
add.l #4,a2 
bra biffsearchO 


; dort werden Adressen ge¬ 
speichert 

; Brushanfang 

; schon alle Chunks gefun¬ 
den? 

; wenn ja, dann Ende 
;sonst 
; erstes 
; LongWord 
; lesen 

; LongWord nach D6 
; mit Chunk aus 
; Tabelle vergleichen 
; wenn gleich, dann Adresse 
speichern 

; sonst Brushadresse minus 3 
; und weiter suchen 
; ab hier Chunkadresse spei¬ 
chern 

; Brushadresse minus 4 
; Puffer aus Tabelle holen 
; und Chunkadresse spei¬ 
chern 

; Chunktabelle plus 4 
; Puffertabelle plus 4 
; nächsten Chunk as Tabelle 
suchen 


chunk_search_ende: 

; — BMHD-Chunk auswerten für Unpacker 
move.l bmhd_chunk,aO ; BMHD-Chunkadresse nach 

AO 

move.b 18(a0),packerbyte ; Compression - Byte spei¬ 

chern 

move.w 10(a0),bob_höhe ; Bobhöhe speichern 

clr.l dO 

move.w 8(a0),d0 ; BOB-Breite nach DO 
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divu #16,dO 
swap dO 

cmp.w#0,d0 
bne dawl 
swap dO 

bra daw2 
dawl: 
swap dO 
add.wttl.dO 
daw2: 

IsI.wttl.dO 

move.w dO,bob_bytebreite 
clr.wdO 

move.b 16(a0),d0 
move.w dO,bob_planes 


;— Speicher fürs Entpacken n 
move.w bob_planes,dO 
mulu bob_bytebreite,dO 
mulu bob_höhe,dO 
move.l dO,bob_planes_size 
move.l #$10002, dl 
move.l 4,a6 
jsr-198(a6) 

move.l dO,bob_planes_base 
tstl dO 

bne bob_ok6 
lea textS.aO 
bsr printtext 
move.l brush_base,a1 
move.l puffer+4,dO 
move.l 4,a6 


; durch 16 teilen 
; HIGH- und LOW-Word ver¬ 
tauschen 

; Rest der Division = Null ? 

; wenn nicht, dann dawl 
; sonst, Words wieder vertau¬ 
schen 
; und daw2 

; Words wieder vertauschen 
; plus 1 Word (wegen Rest) 

; Wordbreite mal 2 = Byte¬ 
breite 

; Bobbreite (in Bytes) spei¬ 
chern 

; Depth vom Brush 
; Anzahl Bob-Planes spei¬ 
chern 


; Anzahl Planes 
; mal BOB-Breite 
; mal BOB-Höhe 
; = BOB-Größe 
; CHIP- und FREE-Memory 

; AllocMem () 

; Adresse speichern 
; konnte Speicher reserviert 
werden ? 

; wenn ja, dann ok6 
; sonst Errormeldung 
; ausgeben 
; Wurde Speicher für 
; sonst Speicher wieder 
; freigeben 
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jsr -210(a6) ; FreeMem () 

rts 


Anfangsadresse der BitMaps 
bob_ok6: 
move.l dO,aO 

move.w bob_bytebreite,dO 
mulu bob_höhe,dO 

move.l #bitmapadressen,a 1 
move.w bob_planes,d1 
sub.w#1,d1 

buploop: 
move.l a0,(a1)+ 
add.l dO,aO 
dbra dl,buploop 


errechnen und speichern — 

; Adresse der 1. Bitplane 
; BOB-Bytebreite nach DO 
; mal BOB-Höhe = Bitplane¬ 
größe 

; Puffer für Bitplane-Pointer 
; Anzahl Planes 

; minus 1, wegen DBRA-Be- 
fehl 

; Bitplaneadresse speichern 
; plus eine Bitplanegröße 
; weiter speichern 


Brush entpacken — 
bsr start_dekompression 

t 

BOB-Header aufbauen — 
lea bob_header,aO 
move.l U"TBOB",(aO) 
move.l#" VI.0",4(a0) 
move.l bob_planes_size,ß(aO) 
add.l #40,8(a0) 
move.l #"HEAD",12(aO) 
move.w bob_höhe, 16(a0) 
move.w bob_bytebreite,dO 
Isr.w#1,d0 
move.w dO, 18(a0) 

Isl.w #4,dO 
move.w d0,20(a0) 
move.w bob_pianes,22(a0) 
move.w #0,24(a0) 
move.w #0,26(a0) 
move.w #0,28(a0) 


; Headeranfangsadresse 
; Bezeichnung 
; Version 
; BOB-lmageSize 
; plus BOB-Header 

; Höhe 

; Breite in Bytes 
; durch 2 = Breite in Words 
; und Wordbreite speichern 

; Breite in Pixeln 
; Tiefe 

; 2 Bytes frei 
; Y-Pos 
; X-Pos 
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move.w #0,30(aO) 
move.l #" BODY" ,32(a0) 
move.l bob_planes_size,36(a0) 
move.l brush_base,a1 
move.l puffer+4,d0 
move.l 4,a6 
jsr -210(a6) 
clr.l brush_base 
lea text6,a0 
bsr printtext 
rts 

BOB auf Diskette speichern — 
save_bob: 
bsrsavebob 
bra main 

savebob: 

move.l bob_planes_base,a1 ; Befindet sich ein BOB im 

Speicher 

cmp.l#0,a1 ; wenn ja, dann weiter 

bne savebob_ 1 

rts 

savebob_ 1: 

;— BOB-Header auf Disk schreiben — 
move.l #1006,d2 ; Modus = New 

move.l #filename,dl ; Filename 

move.l dosbase,a6 

jsr -30(a6) ; OPEN () 

move.l dO.filehd ; Fileadresse 

tst.l dO ; Error ? 

bne ok7 ; wenn nicht, dann ok7 

lea textil,aO ; Errormeldung 

bsr printtext ; ausgeben 

rts 
ok7: 

move.l filehd,d1 ; Fileadresse 

move.l #bob_header,d2 ; Daten 


; No Color 
;BODY-Name 
; Imagelänge 
; Brushspeicher 
; wieder 
; freigeben 
; FreeMem () 

; Ok-Meldung 
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move.l #40,d3 
move.l dosbase,a6 
jsr -48(a6) 

move.l filehd,dl 

move.l bob_planes_base,d2 

move.l bob_planes_size,d3 

move.l dosbase,a6 

jsr -48(a6) 

move.l filehd,d1 

move.l dosbase,aß 

jsr -36(a6) 

9 

OK-Meldung ausgeben — 
lea text9,a0 
bsr printtext 
rts 

;— Brush-Picdaten entpacken — 

start_ dekompression: 
move.l body chunk,aO 
add.l #8,a0 ~ 
clr.l d7 

clr.l d6 
clr.l d5 
clr.l d4 

deko_spalte: 
cmp.w bob_bytebreite,d7 

bmi dekoa 
clr.l d7 

add.w#1,d4 

cmp.w bob_planes,d4 


; Länge - 40 Bytes 
; Write () 

; ab hier 

; werden die entpackten 
; Grafikdaten vom BOB 
; gespeichert 
; WRITE () 


; CLOSE () 


; Quelle für Picdaten ist AO 
; D7 = Zähler für eine Spalte¬ 
nanzahl 

; Brushpicdatenzähler 
; D5 = Zähler für Zeilenanzahl 
; D4 — Zähler für Planes 


; schon eine Zeile einer Bit¬ 
map entpacked ? 

; wenn nicht, dann ‘dekoa“ 

; Spaltenzähler auf Null zu¬ 
rücksetzen 

; Bitmapzähler um 1 erniedri¬ 
gen 

; schon eine komplette Zeile 
der Grafik 
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bmi deko_spalte 


clr.l d4 


cmp.l bob_planes_size,d6 
bmi deko_spalte 


Eine Zeile entpacken 


entpacked ? - wenn nicht 
‘deko_spaite‘ 

Planeszähler auf Null zu¬ 
rücksetzen 

schon komplette Grafik ent¬ 
packet ? 

wenn nicht, dann weiter ma¬ 
chen 

Ende der Entpackerroutine 


dekoa: 
move.l d4,d3 
mulu #4,d3 

move.l #bitmapadressen,a 1 

move.l (a1,d3),a2 

bsr bob_unpacker 
move.l a2,(a1,d3) 
bra deko_spalte 


; Planenummer nach D3 
; mit 4 multiplizieren 
; Ziel für Picdaten ist AI (Ta¬ 
belle) 

; A2 ist Zeiger auf Bitmapa- 
dresse 

; Eine Bitmapzeile entpacken 
; Bitmapposition saven 
; nächste Zeile 


; - eigentliche Entpackerroutine - 

bob_unpacker: 

clr.l dO ; Zähler für max. 128 Bytes 

cmp.b #0,packerbyte ; Brush gepacket ? 

bne gepacked ; wenn ja, dann ‘gepacked‘ 

;— eine nicht gepackte Zeile übernehmen — 
move.w bob_bytebreite,dO ; Bob-Breite in Bytes nach DO 
sub. w#1,dO ; minus 1 

bra dekolloop ; und Picdaten übernehmen 


gepacked: 
move.b (aO)+,dO 
bmi deko2 


; Befehlsbytes holen 
; wenn negativ, dann ‘deko2‘ 
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dekolloop: 
move.b (ä0)+,(a2)+ 
add.w#1,d7 
add.l #1,d6 
dbra dO,dekolloop 

rts 

■ 

9 

deko2: 
neg.b dO 

move.b (a0)+,d1 
deko2loop: 
move.b d1,(a2)+ 
add.w#1,d7 
add.l #1,d6 
dbra d0,deko2loop 
rts 


; sonst Picdaten kopieren 
; Spaltenzähler plus 1 
; Brushdatenzähler plus 1 
; solange bis Befehlsbyte = 
Null 


; vom Befehlsbyte Vorzeichen 
wechseln 
; Füllbyte nach Dl 

; Füllbyte kopieren 
; solange bis Befehlsbyte 
; gleich Null ist 


•— Gibt einen Textauf dem Bildschirm aus, 
■— der mit einem Nullbyte endet 
Parameter: AO = Text, 


PrintText: 
bsrprinttl 
bsr return 
lea textclear,aO 
printtl: 

move.l gfxbase,a6 
move.i UO,dO 
move.l #100, dl 
move.l workscreenhd,a1 
add.l #84,al 
clr.wd2 
move.l a0,a2 
ptjoop: 
tst.b (a2)+ 
beq pt_loop_end 
add.w#1,d2 


graphics.basis 

X-Pos 

Y-Pos 

RastPort 

Zähler für Anzahl Zeichen 
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; Max. 80 Zeichen 


cmp.w#100,d2 
bne ptjoop 
pt_loop_end: 
tstw d2 
beq pt_end 

movem.l a0-a1/a6/d2,-(sp) 
jsr -240(a6) 

movem.l (Sp)+,a0-a1/a6/d0 
jsr -60(a6) 
pt_end: 
rts 

;— Auf Returntaste warten — 
return: 

move.b $bfec01,d0 
cmp.b #$77, dO 
bne return 
rts 

Parameter für Programm — 
filehd: dc.l 0 
puffer: blk.b 12,0 
bob_header: blk.b 40,0 
brush base: dc.l 0 
chunktabelle: dc.l"BMHD" BODY",0 
chunkadresse: dc.l bmhd_chunk,body_chunk 
iffchunk: dc.l 0 
bmhd_chunk: dc.l 0 
body_chunk: dc.l 0 
bob_planes_size: dc.l 0 
bob_planes_base: dc.l 0 
bitmapadressen: blk.l 8,0 
bob_planes: dc.w 0 
bob_höhe: dc.w 0 
bob_bytebreite: dc.w 0 

packerbyte: dc.b 0 ; Dekompressions-Byte 

even 

textclear: dc.b" ",0 


; Kein Text ? 

; Parameter retten 
; MO VE () - Position setzen 
; Parameter holen 
; TEXT () - Text printen 
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text2: dc.b "Kann File auf Diskette nicht finden! (ENTER)",0 
even 

text3: dc.b "Kein IFF-Standart! (ENTER)",0 
even 

text4: dc.b "Datei nicht im ILBM-Format! (ENTER)",0 
even 

textS: dc.b "Nicht genug Speicher vorhanden! (ENTER)",0 
even 

text6: dc.b "Brush erfolgreich in BOB umgewandelt! (EN¬ 
TER)",0 
even 

textö: dc.b "Disk-Error! (ENTER)",0 
even 

textS: dc.b "BOB erfolgreich auf Disk gespeichert! (ENTER)",0 
even 

/ 

intbase: dc.l 0 
dosbase: dc.l 0 
gfxbase: de.! 0 

intname: dc.b Intuition.library",0 
even 

dosname: dc.b " dos.library" ,0 
even 

gfxname: dc.b ",graphics.library",0 
even 

workscreenhd: dc.l 0 
workscreen: 

dc.w 0,0,640,256,2,$0701,$8000,15 
dc.l 0,worktitie,0,0 
worktitle: 

dc.b "Brushformer VI.0 — “ 10/1990 byJ. Schimanski",0 
even 

workwindowhd: dc.l 0 
workwindow: 
dc.w 0,10,640,246,$0701 
dc.l $120,$2c00 
dc.l gadget,0,0 
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Ka pitel,? 


workshd: de. 10,0 
dc.w 640,256,640,256,15 

Gadget für Texteingabe — 
gadget: 
dc.l 0 

dc.w 420,50 
dC.W 160,10 
dc.wO 
dc.w 2 
dc.w 4 
dc.l border 
dc.10 

dc.l texteingabe 
dc.10 

dc.l specialinfo 
dc.w 1 
dc.10 

texteingabe: 
dc.b 1,0,4 
even 

dc.w 10,-15 
dc.10 
dc.l texte 
dc.10 

texte: dc.b "Filename:",0 
align 
border: 
dc.w 0,0 
dc.b 3,3,0,5 
dc.l koordinaten 
dc.10 

koordinaten: 

dc.w -2,-2,160,-2,160,9,-2,9,-2,-2 
specialinfo: 
dc.l filename 
dc.10 

dc.w 0,80,0 


; flags-ereignisse 
; activasion-flags 

; Rahmen 


; max. 80 Zeichen 
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dc.w 0,0,0,0,0,0,0 
dc.10 

filename: blk.b 80,0 ; Textpuffer (80 Bytes) 

Menü-Strukturen — 
menüO: 
dc.10 

dc.w 0,0,120,10,1 
dc.l menü0text,menü00,0,0 
menüOtext: dc.b " Transformer",0 
even 

f 

menüOO: 
dc.lmenüOI 
dc.w 0,0,120,10,$52 
dc.l 0,menü00text,0 
dc.w 0 
dc.l 0,0 
menüOOtext: 
dc.b $7,1,0,0 
dc.w 0,0 

dc.l 0,menü00text0,0 

menüOOtextO: 
dc.b "Load Brush",0 
even 

f 

menüOI: 
dc.l menü02 
dc.w 0,10,120,10,$52 
dc.l 0,menü01text,0 
dc.w 0 
dc.l 0,0 
menüOltext: 
dc.b $7,1,0,0 
dc.w 0,0 

dc.l 0,menü01text1,0 
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menüOltextl: 
dc.b "SAVE BOB",0 
even 

/ 

menü02: 

dc.10 

dc.w 0,20,120,10, $52 
dc.l 0,menü02text,0 
dc.wO 
dc.l 0,0 
menü02text: 
dc.b $7,1,0,0 
dc.w 0,0 

dc.l 0,menü02text1,0 
menü02text1: 
dc.b "EXIT",0 
even 

END 

Listingende ~ 
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7.9 Einen BOB über den Bildschirm bewegen 

So jetzt sind wir soweit auf alles Notwendige eingegangen, daß 
es an der Zeit ist, endlich mal einen BOB auf dem Bildschirm dar¬ 
zustellen und zu bewegen. Wir werden in diesem Abschnitt auf das 
ganz einfache Erzeugen von BOBs eingehen. Dafür werden wir ei¬ 
nen Screen über die Hardware programmieren und unseren BOB 
während des Copperinterrupts bewegen. Obwohl das Listing sehr 
ausführlich dokumentiert ist, folgt zuvor eine kurze Programm¬ 
beschreibung: 

Da wir für unsere BOB-Darstellung das Betriebssystem aus¬ 
schalten, warten wir als erstes, in Form einer Warteschleife, bis 
der Diskmotor ausgelaufen ist. Unbedingt notwendig ist dieses 
nicht, aber es sieht einfach professioneller aus. Wenn die Warte¬ 
schleife beendet ist, schalten wir schließlich das System aus. 

Um später auch Text auf den Screen ausgeben zu können, öffnen 
wir jetzt die Graphicsbibliothek und legen uns eine RastPort-Struk- 
tur an. Als nächstes wird unser Screen mit den Ausmaßen 320 X 
256 in Form einer BitMap-Struktur initialisiert. Für den Screen kön¬ 
nen bis zu 32 Farben benutzt werden. Was auf keinen Fall verges¬ 
sen werden darf, ist die BitMap-Struktur in die RastPort-Struktur 
einzuhängen, ansonsten würde kein Text erscheinen. 

Natürlich erzeugen wir unseren Screen mit Hilfe einer Copperli¬ 
ste. Dafür versorgen wir dir Copperregister mit den notwendigen 
Werten (InitColor und InitCopperMap). Jetzt können wir unsere 
Copperliste starten und unser Screen erscheint. 

Damit wir nicht ein störendes Flimmern vom Mauspointer sehen, 
schalten wir diesen ab und geben einen Demo-Text auf den Bild¬ 
schirm aus. 

Wie sie ja mitlerweile wissen, benötigt ein Blitterobjekt mehrere 
Puffer (ShadowMask.CollMask und SaveBuffer). Diese initialiseren 
wir nun. 
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Was sie jetzt auch aut keinen Fall vergessen dürfen, ist die Bit- 
Map-Struktur in die Variable po_bitmap einzutragen, weil diese von 
der Funktion PrintObjekt () benötigt wird. Ansonsten erscheint spä¬ 
ter kein Objekt. 

Man könnte rein theoretisch jetzt den BOB schon über den Bild¬ 
schirm bewegen. Doch dieser wäre viel zu schnell. Auch wenn 
man ihn durch eine Verzögerungsschleite bremsen würde, hätte 
dies immer noch ein unschönes Flimmern zur Folge. Deswegen 
bewegen wir unser Objekt während des Copperinterrupts, welchen 
wir jetzt initialisieren. Damit der Hintergrund nicht vom Objekt wäh¬ 
rend seiner Bewegung zerstört wird, setzen wir in die Objekt- 
Args-Struktur den Parameter BOBOFF auf den Wert 0. 

Auf Druck der rechten Maustaste wird das Programm schließlich 
beendet. 

Für das korrekte Beenden des Programms hängen wir als erstes 
die alte IRQ-Routine vom System wieder ein, schalten den BOB 
aus, geben den belegten Speicher wieder zurück (FreeMask, Free- 
SaveBuffer, ClearBitMap) und schalten die alte Copperliste ein. 
Zuletzt schließen wir noch die Graphicsbibliothek und schalten das 
Betriebssystem wieder an. 


Hier das dazugehörige Listing: 


-- Erzeugt einen Screen über die Hardware 
Printet einen Text und bewegt-einen BOB — 

— und auf rechte Maustaste erscheint alte — 

— Copperliste und Programm wird beendet — 

■— Programmname = MoveBOB 


Betriebssystem ausschalten 
move.l #600000, dO 
motor_aus: 
sub.l#1,d0 
cmp.l #0,d0 


; warten 
; bis 
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bne motor_aus 
move.l 4,a6 
jsr -120(a6) 

; Diskmotor aus 
; IRQs aus 
; Disable () 

move.l 4,a6 
lea gfxname,a1 
clr.l dO 
jsr-552(a6) 
move.l dO.gfxbase 

; ExecBasis 
; Libraryname 
; Version = 0 
; OpenLibrary 0 
; graphics.basis 

lea rastport,a1 
move.l gfxbase,a6 
jsr -198(a6) 

; RastPort-Struktur 
; graphics.basis 
; InitRastPort () 

lea bitmap,aO 
move.l #5,dO 
move.l #320, dl 
move.l #256,d2 
move.l #1,d3 
bsr initbitmap 

; BitMap-Struktur 
; Depth = 5 
; 320 breit 
; 256 hoch 

; Speicher reservieren 
; BitMap in it. 

lea bitmap,aO 
lea rastport,a1 
move.l a0,4(a1) 

; BitMap-Struktur 
; RastPort-Struktur 
; BitMap in RastPort einhän¬ 
gen 

lea colortable,aO 
lea colorpuffer,a1 
bsr initcolor 

; Farbtabelle 
; Copperpuffer 
; Farbregister init. 

lea bitmap,aO 
lea copperpuffer,al 
clr.l dO 

bsr initcoppermap 

; BitMap-Struktur 
; Copperpuffer 
; Modus = Normal 
; Custömregister init. 

move.l #copperlist,$dff080 
clr.w $dff088 

; Copperlistadresse 
; Copperliste starten 
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mo ve. w #$20,$dff096 
move.l #spritedatas,$dff120 

f 

lea demotext, aO 
lea rastport,a1 
move.l gfxbase,a6 
clr.l dO 

move.l #100,dl 
bsr printtext 


; Sprite-DMA aus 
; Sprite 0 (Mauszeiger) aus 

; Textadresse 
; RastPort-Struktur 
; graphics.basis 
; X-Position 
; Y-Position 
; Text printen 


Puffer für Hintergrundspeicherung reservieren — 
lea objektargs,aO ; ObjektArgs-Struktur 

lea bitmap,a1 ; BitMap-Struktur 

bsr getsavebuffer ; SaveBuffer reservieren 


;— Puffer für Masken reservieren und initialisieren — 
lea objektargs,aO ; ObjektArgs-Struktur 

move.l #2,dO ; MEMORY + CollMask = 

ShadowMask 

bsr InitMask ; Initialisiere Masken und 

Puffer 


BitMap-Struktur in Variable po_bitmap schreiben — 
move.l #bitmap,po_bitmap 


Copperlrq einschalten — 
move.l $6c,oldirqebene 
move.w $dff01c,intena_buf 
move.l #Copperlrq,$6c 

move.w #$7fff,$dff09a 
move.w #$c010,$dff09a 


; alte IRQ-Ebene retten 
; IRQ-Register retten 
; eigene IRQ-Routine einhän 
gen 

; alle IRQs aus 
; Copper-IRQ ein 


Maustaste abfragen — 
main: 

btst#10,$dff016 ; Rechte Maustaste ? 

bne main 
bra exit 


; Programm beenden 
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CopperIRQ-Routine — 
copperirq: 

move.w #$0010,$dff09c 
movem.l d0-d7/a0-a6,-(sp) 

f 

bsr move_bob 

I 

movem.l (sp)+,d0-d7/a0-a6 
rte 


BOB darstellen und bewegen 
move_bob: 
lea objektargs,aO 
lea speedy,a1 
lea speedx,a2 

cmp.w #288,8(a0) 
bltx_kleiner 
neg.w (a2) 

x_kleiner: 
cmp.w #0,8 (aO) 
bge x_größer_gleich 
neg.w (a2) 

x_größer_gleich: 
move.w (a2),d0 
add.w d0,8(a0) 
i 

cmp.w #246,6fa0) 
blty_kleiner 
neg.w (al) 

y_kleiner: 
cmp.w #0,6(a0) 
bge y_größer_gleich 


; CoperlRQ zurücksetzen 
; Daten- Adressregister retten 

; BOB bewegen 

; Register zurückholen 
; IRQ-Programm beenden 


; XPos 

; <288 ? 

; Vorzeichen von X-Pos. än¬ 
dern 

; XPos 

; Vorzeichen von X-Pos än¬ 
dern 

; X-Speed 

; New-XPos. 

; YPos 

; < 246 ? 

; Vorzeichen von Y-Pos. än¬ 
dern 

; YPos 
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neg.w(al) 

y_größer_gleich: 

; Vorzeichen von Y-Pos 
dem 

än- 

move.w (a1),dO 

; Y-Speed 


add.w d0,6(a0) 

; New-YPos. 


9 

bsr printobjekt 
rts 

; Objekt darstellen 


9 

speedy: dc.w 1 

; Y-Speed 


speedx: dc.w 1 

;— Programm beenden — 
exit: 

; X-Speed 


9 

CopperlRQ wieder aus — 

or. w #$8000,intena_buf 

; Set/Clr- Bit setzen 


move.w #$7fff,$dff09a 

; alle IRQs aus 


move.w intena_buf,$dff09a 

; alte IRQs wieder einschalten 

move.l oldirqebene,$6c 

; System-IRQ-Routine 

ein- 


hängen 


9 

BOB ausschalten — 

lea objektargs.aO 

; ObjektArgs-Struktur 


move.b #1,4fa0) 

; BOB ausschalten 


bsr printobjekt 

; und ausführen 


9 

BOB-Maskenpuffer wieder freigeben — 


lea objektargs,aO 

; ObjektArgs-Struktur 


bsr freemask 

; Maskenpuffer freigeben 


9 

;— SaveBuffer-Puffer wieder freigeben — 


lea objektargs.aO 

; ObjektArgs-Struktur 


lea bitmap.al 

; BitMap-Struktur 


bsr freesavebuffer 

; Save Buffer freigeben 


9 

move.l gfxbase.aO 

; graphics.basis 


move.l 38(a0),$dff080 

; alte Copperlistadresse 
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clr.w $dff088 


; und starten 


move.w #$8220,$dff096; Sprite-DMA an 


lea bitmap,aO 
bsr clearbitmap 

move.l gfxbase,a1 
move.l 4,a6 
jsr -414(a6) 


; BitMap-Struktur 
; BitMap freigeben 

; graphics.basis 
; exec.basis 
; CloseLibrary () 


System wieder anschalten • 
move.l 4,a6 
jsr - 126(a6) 
rts 


; IRQs wieder erlauben 
; Enable () 

; Programmende 


SaveBuffer-Speicher wieder freigeben 
AO = ObjektArgs; AI = BitMap — 
FreeSa veBuffer: 


move.w 12(a0),d0 
Isl.w#1,d0 
mulu 10(a0),d0 
move.b 5(a1),d1 
and.w #$00ff,d1 
mulu d1,dO 
move.l 24(a0),a1 
cmp.lftO,a1 
bne fsb_ 1 
rts 

fsb_1: 
clr.l 24(a0) 
move.l #$4,a6 
move.l (a6),a6 
jsr -210(a6) 
rts 


; WordWidth 
; mal 2 = Bytes 
; mal Höhe = MapSize 
; Screen-Depth nach Dl 
; Hi-Byte löschen 
; Screen-Depth mal MapSize 


; Save Buffer-Zeiger löschen 


; FreeMem 


162 


Grafik-Hardwareproarammieruna 


Kapitel 7 


;— Speicher für SaveBuffer reservieren — 
;— AO = ObjektArgs; AI = BitMap- 
GetSaveBuffer: 


move.w 12(a0),d0 

; WordWidth 

Isi.wth.dO 

; mal 2 = Bytes 

mulu 10(a0),d0 

; mal Höhe = MapSize 

move.b 5(a1),d1 

; Screen-Depth nach Dl 

and.w it$00ff,d1 

; Hi-Byte löschen 

mulu d1,d0 

; Screen-Depth mal MapSize 

move.l #$10002,dl 
move.l #$4,a6 
move.l (a6),a6 
movem.l aO,-(sp) 

; Chip + ClearMem 

jsr-198(a6) 
movem.l (sp)+,aO 
tstl dO 
bne gsb_ 1 

; AllocMem 

move.l #-1,d0 
rts 

gsb_1: 

; Error 

move.l d0,24(a0) 

clr.l dO 

rts 

; SaveBuffer-Zeiger init. 


;— ShadowMask-Puffer wieder freigeben 
AO = ObjektArgs - 
FreeMask: 


move.l 20(a0),a1 
cmp.l#0,a1 
bne fm 1 
rts 


; ShadowMask-Zeiger 
; vorhanden ? 


fm_ 1: 
clr.l 20(a0) 
move.w 12(a0),d0 
isi.w#1,d0 
mulu 10(a0),d0 
Size 


; ShadowMask-Zeiger löschen 
; WordWidth 
; mal 2 = ByteWidth 
; mal Höhe = ShadowMask- 
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move.l #$4,a6 
move.l (a6),a6 

jsr -210(a6) ; FreeMem 

rts 

;— ShadowMask anlegen — 

AO - ObjektArgs, DO = Memory/CollMask-Zeiger - 


InitMask: 
tstw dO 

beq im_ 1 
movem.l dO,-(sp) 
move.w 12(a0),d0 
Isl.w#1,d0 
mulu 10(a0),d0 

move.l #$10002,dl 
move.l #$4,a6 
move.l (a6),a6 
movem.l aO,-(sp) 
jsr -198(a6) 
movem.l (sp)+,aO 
tst.l dO 
bne im_ 1a 
movem.l (sp)+,dO 
move.l #-1,d0 
rts 

im_ 1a: 

move.l d0,20(a0) 

movem.l (sp)+,dO 
cmp.w #2,d0 
bne im_ 1 

move.l 20(a0),28(a0) 
im_ 1: 

move.l #$dff000,a6 
move.l #$0dfc0000,$40(a6) 
move.l #-1,$44(a6) 


; Muß ShadowMask-Puffer re¬ 
serviert werden ? 


; WordWidth 
; mal 2 = Bytes 

; mal Höhe = ShadowMask- 
Size 

; Chip und ClearMem 


; AllocMem 


; Error 


; ShadowMask-Adresse spei¬ 
chern 


; BLTCONO: A + B s D 
; First/Last Mask 
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clr.l $62 (a6) 
clr.w $66(a6) 
move.w 12(a0),d5 
move.w 10(a0),d6 
move.w d5,d0 
IsI.wffl.dO 
mulu d6,d0 
and.w ff$3ff,d6 
Isl.wff6,d6 
and.w ff$3f,d5 
add.w d6,d5 
move.w 14(a0),d1 
sub.wffl.dl 
move.l 20(a0),a1 

move.l 16(a0),a2 
initmaskjoop: 
move.l a2,$50(a6) 

move.l a1,$54(a6) 
move.l a1,$4c(a6) 

move.w d5,$68(a6) 

initmask_ wait: 
btst ff14,$2(a6) 
bne initmask_wait 
add.l dO,a2 

dbra dl,initmaskjoop 

clr.l dO 

rts 


; Modulowert von Quelle B 
; Modulowert von Ziel D 
; Breite in Words 
; Höhe in Pixel 
; Breite nach DO 
; mal 2 = Breite in Bytes 
; DO = ImageMapSize 
; Blittersize errechnen 
; D5 = Breite in Words 
; D6 = Höhe in Pixel 
; D5 ist jetzt Blittersize 
; Anzahl Planes nach Dl 
; minus 1, wegen DBra 
; AI = ShadowMask (Ziel D 
und Quelle B) 

; A2 = Image-Zeiger 

; Anfangsadresse von Quelle 
A 

; Anfangsadresse von Ziel D 
; Anfangsadresse von Quelle 
B s Ziel D 

; BLTSIZE und Blitteroperati- 
on starten 

; Blitter fertig? 

; nächste ImageMap 

; No Errors 


;— ein Objekt auf Bildschirm printen 

;— AO = Objektargs ; po_bitmap = Zeiger auf Bitmap-Struktur 
;— Objekte nicht höher und/oder breiter als Bitmap 
;— Diese Routine kann PC-Relative assembliert werden 
PrintObjekt: 

move.l po_bitmap(pc),a1 




move.l #$dff000,a2 
move.w (a1),d6 
Isr.w#1,d6 
move.w 2(a1),d7 

f 

move.w 6(a0),d0 
cmp.w 2(a1),d0 

bge po_clipping 
move.w 10(a0),d1 
neg.w dl 
cmp.w dl.dO 
ble po_clipping 
move.w 8(a0),d0 
move.w (a1),d1 
Isl.w#3,d1 
cmp.w d1,dO 

bge po_clipping 
move.w 12(a0),d1 
sub.w#1,d1 
Isl.w#4,d1 
neg.w dl 
cmp.w d1,dO 
ble po_clipping 

/ 

cmp.b #1,4(a0) 
bne po_bobon 

po_bob_aus: 
bsr po_writehintergrund 
clr.b 5(aO) 
rts 

po_bobon: 
tstb 4(a0) 
bne po_bobon_xa 
bsr po_writehintergrund 
bsr po_readhintergrund 


; Chip-Basisadresse SDFFOOO 

; D6 = Screenbreite in Words 
; D7 = Screenhöhe 

; Ypos nach DO 

; If YPos >= Screenhöhe then 
ende 

; Höhe des Objekts nach Dl 
; negativ machen 
; If YPos <= Dl then ende 

; X-Pos. nach DO 
; Zeilenbreite in Bytes 
; mal 8 = Zeilenbreite in Pixel 
; If XPos >= Zeilenbreite then 
ende 

; Objektbreite nach Dl 
; ein Word abziehen 
; mal 16 = Breite in Pixel 
; Objektbreite jetzt negativ 
; IfXPos <= Dl then ende 


; BOBOff ? 


; BOB nicht mehr init. 


; Objekt normal anschalten ? 


; Hintergrund speichern 



bsr po_writeobjekt 
rts 

po_bobon_xa: 
cmp.b #2,4(a0) 
bne po_bobon_xb 
bsr po_ writeobjekt 

rts 


; Objekt in Hintergrund prin- 
ten 

; Ende 

; Write BOB only 

; Hintergrund zurückschrei¬ 
ben 


po_bobon_xb: 

cmp.b #3,4(a0) ; Write Hintergrund only 

bne po_bobon_xc 

bsr po_writehintergrund 

rts 

po_bobon_xc: 

cmp.b #4,4(a0) ; Read Hintergrund only 

bne po_bobon_end 
bsr po_readhintergrund 
po_bobon_end: 
rts 

po_ciipping: 

tst.b 4(a0) ; Objekt normal anschalten ? 

beq po_bob_aus 

cmp.b #1,4(a0) 

beq po_bob_aus 

cmp.b #3,4(a0) 

beq pobob_aus 

rts 

Masken/Offset/BUttersize berechnen 
DO = Y, Dl = X Position 
Rückgabe: DO = Blitterhöhe, Dl = Blitterbreite 
; D2 = PositionOffset, D5 = Shiftwert 

; D4 = muß zum Bitmapoffset addiert werden 

po_parameter: 
tst.wdO 
bpi po_para_1 
move.w 12(a0),d2 


; Y positiv ? 

; wenn ja, dann verzweigen 
; Breite Objekt Words 
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Isl.w#1,d2 
move.w d0,d3 
neg.w d3 
mulu d3,d2 
add.w 10(a0),d0 
bra po_para_x 

po_para_1: 
move.w d7,d2 
sub.w d0,d2 
move.w d2,d0 
clr.l d2 

cmp.w 10(a0),d0 
bmi po_para_x 
move.w 10(a0),d0 

po_para_x: 

tstwdl 
bplpo_para_2 
neg.w dl 
move.w d1,d4 
Isr.w #4, dl 
move.w 12(aO),dS 
sub.w d1,d5 
clr.l d3 

move.w d1,d3 
Isl.w#1,d3 
add.l d3,d2 
move.w d5,d1 
and.w#15,d4 
clr.w d5 
tstw d4 

beq po_para_44 
move.w #16,d5 
sub.w d4,d5 
subq.w #1,d4 
move.w #$ffff,d3 


; in Bytes 


; plus höhe Objekt 


; Screenhöhe 
; minus y-pos 
; DO = ergebnis 

; minus höhe 
; negativ ? 

; wenn positiv dann normale 
Height 

; DO = Blitterhöhe , D2 = Y- 
Offset 
; X positiv ? 

; wenn ja, dann verzweigen 
; X-pos jetzt positiv 
; x-pos nach D4 
; durch 16 teilen 
; Objektbreite nach D5 


D3 = X-Offset 
D2 = Position-Offset 
Dl = Bl itterbreite 


; D5 = real Shiftwert 
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; FirstMask 


po_para_shift: 

Isr.w#1,d3 

dbra d4,po_para_shift 
move.w d3,$44(a2) 
move.w d3,$46(a2) 
cmp.w#1,d1 
beq po_para_ 7 
move.w #$ffif,$46(a2) 
po_para_7: 
move.l#2,d4 
rts 

po_para_2: 
move.w d1,d5 
and.w#15,d5 
Isr.w#4,d1 
move.w d6,d4 
sub.w dl,d4 
move.w d4,d1 
cmp.w 12(a0),d1 
bmi po_para_3 
move.w 12(a0),d1 
po_para_44: 
move.l #-1,$44(a2) 
clr.l d4 
rts 

po_para_3: 

tstwdS 

beq po_para_44 
move.w d5,d3 
subq.w#1,d3 
move.w #$ffff,d4 
po_para_shifta: 
Isl.w#1,d4 

dbra d3,po_para_shifta 
move.w d4,$44(a2) 
move.w d4,$46(a2) 
cmp.w #1,dl 
beq po_para_4 


;LastMask 

; Bitmapoffset -2 Bytes 

; X-Pos ist positiv 
; X-pos nach D5 
; D5 = Shiftwert 
; X-Pos durch 16 
; Screenbreite nach D4 

; Dl = Blitterbreite 
; Ergebnis - Objektbreite 
; hiernach normal weiter 
; Blitterbreite 

; First/LastMask 
; Bitmapoffset + 0 Bytes 


; FirstMask 
; Blitterbreite = 1 
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move.w #$ffff,$44(a2) 

po_para_4: 
clr.l d4 
rts 

; - Hintergrund wieder printen 

po_ writehintergrund: 
tstb 5(a0) 

bne po_writehg_x 
rts 

po_writehg_x: 
move.w (aO),dO 
move.w 2(a0),d1 
bsr po_parameter 
move.l #-1,$44(a2) 
move.l #$09f00000, $40 (a2) 
move.l 24(a0),a3 
add.l d2,a3 
lea 8(a1),a4 
move.w d6,d5 
sub.w d1,d5 
Isl.w#1,d5 
move.w d5,$66(a2) 
move.w 12(a0),d5 
sub.w d1,d5 
Isl.w#1,d5 
move.w d5,$64(a2) 
clr.l d3 
tstw2(a0) 

bmi po_writehg_nox 
move.w 2(a0),d3 
Isr.w #4,d3 
Isl.w#1,d3 

po_ writehg_ nox: 
tst.w (aO) 

bmi po_writehg_noy 
move.w (a0),d4 


; LastMask 

; Bitmapoffset + 0 Bytes 

; wurde ein Hintergrund 
schon gelesen ? 


; OldY 
; OldX 

; First/LastMask 
; BLTCONO/1 
; A3 = real Quelle A 


; ZModulo 

; AModulo 

; x-pos 
; X-Offset 
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mulud6,d4 
Isl.l#1,d4 
add.l d4,d3 
po_ writehg_ noy: 
move.w 12(a0),d4 
mulu 10(a0),d4 
Isl.l #1,d4 
clr.w d5 

move.b 5(a1),d5 
subq.w #1,d5 
and.w #$3ff,d0 
Isl.w #6,dO 
and.w #$3f, dl 
add.wdO.dl 
po_ writehg_ loop: 
move.l a3,$50(a2) 
move.l (a4)+,a5 
add.l d3,a5 
move.l a5,$54(a2) 
move.w d1,$58(a2) 
po_writehg wait: 
btst#14,$2(a2) 
bne po_writehg_wait 
add.l d4,a3 

dbra d5,po_writehg_loop 
rts 

; - Hintergrund speichern — 

po_readhintergrund: 
move.b #1,5(a0) 

move.w 6(a0),0(a0) 
move.w 8(a0),2(a0) 
move.w (aO),dO 
move.w 2(a0),d1 
bsr po_parameter 
move.l #-1,$44(a2) 
move.l #$09f00000,$40(a2) 


; Y-Offset 
; D3 = Bitmapoffset 


; D4 = Map-Size vom Objekt 


; D5 = Loop-zähler 
; Blittersize errechnen 
; Dl = breite in Words 
; DO = höhe in Pixel 
; Dl ist jetzt Blittersize 

; Quelle A 


; Ziel D 

; BUtter starten 

; Bit BBusy testen 
; wenn Null, dann Blitterende 


; Init = 1, Hintergrund schon 
mal gelesen 
; Ypos nach OldYpos 
; Xpos nach OldXpos 
; Y 
;X 

; First/LastMask 
; BL TCONO/1 
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move.l 24(a0),a3 
add.l d2,a3 
lea 8(a1),a4 
move.w d6,d5 
sub.w d1,d5 

Isl.w#1,d5 

; A3 = Ziel D 

move.w d5 f $64(a2) 
move.w 12(a0),d5 
sub.w dl,d5 

Isl.w#1,d5 

; AModulo 

move.w d5,$66(a2) 
clr.l d3 
tst.w 2(a0) 
bmi po_readhg_nox 

; ZModulo 

move.w 2(a0),d3 
Isr.w#4,d3 

; x-pos 

Isl.w#1,d3 
po_readhg_nox: 
tstw (aO) 

bmi po_readhg_noy 
move.w (a0),d4 
mulu d6,d4 

; X-Offset 

\s\.\m,d4 

; Y-Offset 

add.l d4,d3 
po_readhg_noy: 
move.w 12(a0),d4 
mulu 10(a0),d4 

; D3 = Bitmapoffset 

Isl.l #1,d4 
clr.w d5 

move.b 5(a1),d5 

; D4 = Map-Size vom Objekt 

subq.w #1,d5 

; D5 = Loop-zähler 

and.w #$3ff,d0 

; Blittersize errechnen 

Isl.w#6,d0 

; Dl = breite in Words 

and.w #$31, dl 

; DO = höhe in Pixel 

add.w dO,dl 
po_readhg_loop: 

; Dl ist jetzt Blittersize 

move.l a3,$54(a2) 
move.l (a4)+,a5 

; Ziel D 
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add.l d3,a5 


move.l a5,$50(a2) 

; Quelle A 

move.w d1,$58(a2) 
po readhg wait: 

; Blitter starten 

bist #14,$2 (a2) 

; Bit BBusy testen 

bne po_readhg_wait 
add.l d4,a3 

dbra d5,po_readhg_loop 
rts 

; wenn Null, dann Blitterende 

Objekt Daten in Bitmap kopieren — 
po_writeobjekt: 

move.w 6{a0),d0 

; Y 

move.w 8(a0),d1 
bsr po_parameter 

Isl.w#8,d5 

;X 

isi.w #4,d5 

; korrekter Shiftwert 

move.w dS,$42(a2) 
add.w #S0fca,d5 
movem.l d5,-(sp) 

; BLTCON1 

move.w dS,$40(a2) 
move.l 20(a0),a5 

; BL TCONO 

add.l d2,a5 

move.l 16(a0),a3 

; AS = Quelle A (real Shadow- 
Mask) 

add.l d2,a3 
lea 8(a1),a4 
move.w d6,d5 
sub.w d1,d5 

Isi.w #1,d5 

; A3 = Quelle B (real Image) 

move.w d5,$66(a2) 

; ZModulo 

move.w d5,$60(a2) 
move.w 12(a0),d5 
sub.w dl,d5 

Isi.w #1,d5 

; CModulo 

move.w d5,$64(a2) 

; AModulo 

move.w d5,$62(a2) 
clr.l d3 

; BModulo 
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tstw8(a0) 
bmi po_ writeo_nox 
move.w 8(a0),d3 
Isr.w #4, d3 
Isl.w#1,d3 
po_ writeo_nox: 
tst.w6(a0) 
bmi po_writeo_noy 
move.w 6(a0),d5 
mulu d6,d5 
lsl.lM1,d5 
add.l d5,d3 
po_ writeo_noy: 
sub.l d4,d3 
move.w 12(a0),d4 
mulu 10(a0),d4 
Isl.l M1,d4 
move.w 14(a0),d5 
subq.w Ml,d5 
and.w M$3ff,d0 
and.w M$3f,d1 
lsl.wM6,dO 
add.w dO,dl 
po_ writeojoop: 
move.l a5,$50(a2) 
move.l a3,$4c(a2) 
move.l (a4)+,a6 
add.l d3,a6 
move.l a6,$48(a2) 
move.l a6,$54(a2) 
move.w d1,$58(a2) 
po_ writeo_ wait: 
btst#14,$2(a2) 
bne po_ writeo_ wait 
add.l d4,a3 

dbra d5,po_writeo_loop 
movem.l (sp)+,d5 
move.w 14(a0),d0 


; x-pos 
; X-Offset 


; Y-Offset 


; D3 = Bitmapoffset 


; D4 = Map-Size vom Objekt 
; D5 = Loop-zähler 


; Dl = breite in Words 
; Dl ist jetzt Blittersize 

; Quelle A (ShadowMask) 
; Quelle B (Image) 


; Quelle C (BitMap) 

; Ziel D(BitMap) 

; Blitter starten 

; Bit BBusy testen 
; wenn Null, dann Blitterende 


; BLTCONO wert holen 
; Depth BOB nach DO 
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cmp.b 5(a1),d0 
beq po_writeo_end 
sub.b 5(al),d0 
neg.b dO 
subq.w #1,d0 
sub. w #$0400,d5 
move.w d5,$40(a2) 
clr.w $42 (a2) 
clr.w $72 (a2) 

po_ writeo_loop2: 
move.l a5,$50(a2) 
move.l (a4)+,a6 
add.l d3,a6 
move.l a6,$48(a2) 
move.l a6,$54(a2) 
move.w d1,$58(a2) 
po writeo_wait2: 
btst#14,$2(a2) 
bne po_ writeo_ wait2 
dbra d0,po_writeo_loop2 
po_ writeo_end: 
rts 

po_bitmap: dc.l 0 


; = Anzahl Planes Screen ? 

; Wenn ja, dann Ende 
; Planes-Anzahl abziehen 
; Positiv machen 

; DMA-Kanal B = aus 
; BLTCONO 
; No Shift B 

; Clear Datenregister B (Fi¬ 
gur) 

; Quelle A (ShadowMask) 


; Quelle C (BitMap) 

; Ziel D (BitMap) 

; BUtter starten 

; Bit BBusy testen 
; wenn Null, dann Blitterende 


Gibt einen Text auf dem Bildschirm aus, 
der mit einem Nullbyte endet — 

Parameter: AO = Text, AI = RastPort, — 

A6 = Graphics-Basis — 

DO = X-Pos., Dl = Y-Position — 

PrintText: 

clr.w d2 ; Zähler für Anzahl Zeichen 

move.l a0,a2 
pt_loop: 
tstb (a2)+ 
beq pt_loop_end 
add.w~#1,d2 
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cmp.w#100,d2 
bne ptjoop 
pt_loop_end: 
tst.wd2 
beq pt_end 

movem.l a0-a1/a6/d2,-(sp) 
jsr -240(a6) 

movem.l (sp)+,a0-a1/a6/d0 
jsr -60(a6) 
pt_end: 
rts 


; Max. 80 Zeichen 


; Kein Text ? 

; Parameter retten 
; MOVE 0 - Position setzen 
; Parameter holen 
; TEXT 0 - Text printen 


BitMap-Pointer in CopperList übertragen — 

AO- BitMap; AI = CopperPuffer; DO = Modus ■ 
InitCopperMap: 


move.w (aO),d1 
sub.w #40,dl 
cmp. w #$8000, dO 
bne icm_ 1 
sub.w #40,dl 

icm_ 1: 

cmp.w #$04,dO 
bne icm_2 
sub.w #40, dl 

icm_2: 

move.w #$0108,{a1)+ 
move.w dl,(a1)+ 

move.w #$010a,(a1)+ 
move.w d1,(a1)+ 
move.b 5(a0),d1 
isi.w #8,d1 
Isl.w#5,d1 
tsr.w#1,d1 
add.w #$0200,d1 
add.wdO.dl 


; Bytes pro Zeile nach Dl 
; minus 40 Bytes (320 Pixel) 

; Modus = Hires ? 

; nochmal minus 40 Bytes 
(insgesammt -640 Pixel) 

; Modus = Interlace ? 

; auch minus 40 Bytes (ins¬ 
gesammt -640 Pixel) 

;B PLI MOD 

; Modulo-Wert ungerade Pla¬ 
nes 

; BPL2MOD 

; Modulo-Wert gerade Planes 
; Depth nach Dl 
; Korekten 
; Depth-Wert 
; ermitteln 
; Color setzen 
; Modus setzen 
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move.w #$0100,(a1)+ 
move.w d1,(a1)+ 
moveq #5,d0 
move.w #$00e0,dl 

add.l #8,a0 
icmjoop: 
move.w dl,(a1)+ 
move.w (a0)+,(a1)+ 
add.w#2,d1 
move.w dl,(a1)+ 
move.w (a0)+,(a1)+ 
add.w#2,d1 
dbra dO, icmjoop 
rts 


; BPLCONO 
; setzen 

; max. Tiefe minus 1 
; Hi-Word vom ersten Map- 
Pointer 

; Erster Pointer-Zeiger 

; Hl-Word vom Pointer 
; setzen 

; Lo-Word ermitteln 
; und 
; setzen 

; Hi-Word ermitteln 


.— ColorMap in CopperListe übertragen — 
AO = ColorTable; AI = CopperPuffer — 
InitColor: 


move.w #$180,dl 
move.w #31,dO 
icjoop: 

move.w dl,(a1)+ 
move.w (a0)+,(a1)+ 

add.w #2, dl 
dbra dO,icjoop 
rts 


; erstes Farbregister 
; Anzahl Farben 

; Farbregister in CopperList 
; dann der Farbwert in Cop¬ 
perList 

; nächstes Farbregister 


BitMap-Struktur initialisieren und 
Speicher für Maps reserverieren 
DO = Depth, Dl = Width, D2 = Height, D3 = Memory, 
AO = BitMap 
InitBitMap: 

move.w d1,d4 ; Breite nach D4 

and. w #15,d4 ; Rest ermitteln 

tst.w d4 ; Rest vorhanden ? 
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beq ibm_ 1 

move.l#-1,d0 

rts 

ibm_ 1: 

Isr.w#4,d1 

Isl.w#1,d1 

move.w d1,(a0) 

move.w d2,2(a0) 

move.w d0,4(a0) 
tstw d3 

bne ibm_2 

clr.l dO 
rts 

ibm_2: 

move.w d0,d4 
sub.w#1,d4 
Iea8(a0),a1 
ibm_clear_loop: 
clr.l (a1)+ 

dbra d4,ibm_clear_loop 


; Wenn nicht, dann weiter - 
sonst Error 

; Error: Breite nicht durch 16 
teilbar 


; Breite durch 16 teilen 
; mal 2 = Anzahl Bytes einer 
Zeile 

; und in BitMap-Struktur 
speichern 

; Höhe in BitMap-Struktur 
speichern 

; Anzahl Planes speichern 
; Muß Speicher für BitMaps 
reserviert werden ? 

; Wenn nicht, dann Ende, 
sonst weiter 
; No Errors 
; Ende 

; Depth nach D4 
; minus 1 
; BitMap nach al 
; Pointer-Zeiger 
; löschen 


mulu d2,d1 

move.w d0,d2 
move.l d1,d0 
move.l #$10002,dl 
sub.w#1,d2 

add.l #8,aO 
move.l a0,a2 


; BytePerRow x Höhe = Size 
von einer Map 
; 02 = Anzahl Planes 
; DO = ByteSize 
; Dl = CHIP + FreeMem 
; Anzahl Planes minus 1, we¬ 
gen DBRA 

; Anfang BitMap-Zeiger 
; auch nach A2 
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ibmjoop: 
move.l #$4,a6 
move.l (a6),a6 
movem.l d0-d2/a0-a2,-(sp) 
jsr -198(a6) 
tst.l dO 

bne ibmjl 

movem.l (sp)+,d0-d2/a0~a2 
ibmjreejoop: 
move.l (a2),a1 
cmp.l#0,a1 
bne ibm_l2 
move.l #-2,d0 
rts 

ibmJ2: 
clr.l (a2)+ 

movem.l dO/a2,-(sp) 
move.l #$4,a6 
move.l (a6),a6 
jsr -210(a6) 
movem.l (sp)+,dO/a2 
bra ibmjreejoop 
ibmjl: 
move.l d0,d5 

movem.l (sp)+,d0-d2/a0-a2 

move.l d5,(a0)+ 

dbra d2, ibmjoop 

clr.l dO 

rts 


; AllocMem 

; konnte Speicher reserviert 
werden ? 

; Wenn ja, dann weiter 


; Zeiger auf BitMap holen 
; Null ? 

; wenn ja, dann ende 
; Error 
; Ende 


; FreeMem 


; Zeiger auf BitMap nach D5 


;— Speicher der Maps wieder freigeben in 
einer BitMap-Struktur 
;— AO = BitMap 
ClearBitMap: 
clr.w dl 

move.b 5(a0),d1 
sub.w#1,d1 


; Depth nach Dl 



move.w (aO),dO 
mulu 2(aO),dO 
add.l #8,a0 
move.l #$4,a6 
move.l (a6),a6 
cbmjoop: 
move.l (aO),a1 
cmp.l#0,a1 
beq cbmjl 
clr.l (aO)+ 

movem.l d0-d1/a0/a6,-(sp) 
jsr -210(a6) 

movem.l (sp)+,d0-d1/a0/a6 
cbmjl: 

dbra dl,cbmjoop 
rts 

Parameter — 

f 

Objektdaten — 
ObjektArgs: 
dc.w 0,0 
dc.b 0,0 
dc.w 100,20 
dc.w 10,3,2 

dc.l image 
dc.l 0,0,0 


; BytePerRow 
; mal Höhe = MapSize 


; Map-Pointer 


; FreeMem 


; OLDY.OLDX 

; BOBOFF=Normal, Init = 0 
; YPos,XPos 

; Höhe = 10, Word breite = 3, 
Tiefe = 2 

; Adresse der BOB-Daten 
; ShadowMask/SaveBuf- 
fer/CollMask = Null 


image: ; Imagedaten vom BOB 

BitMap 1 — 

dc.w %0000000000000011,%1110000000000000,30 letztes 

Word 

dc.w %0000000000000111,%1100000000000000,$0 ; muß 

dc.w %0000000000001111,% 1000000000000000,$0 ; immer 

dc.w %0000000000011111,%0000000000011000,$0 ; Null 

dc.w %0000000000111110,%0000000000011000,$0 ; sein 

dc.w %1111000001111100,%0000000000000000,$0 
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dc.w %0111100011111000,%0110010001000000, $0 
dc.w %0011110111110000, %1001011011000000, $0 
dc.w %0001111111100000,%1111010101000000,$0 
dc.w %0000111111000000,%1001010001000000,$0 
BitMap 2 — 

dc.w %0000000000000011,%1011100000000000,$0 ;letztes 

Word 

dc.w %0000000000000111,%0111000000000000,$0 ; muß 

dc.w %0000000000001110,%1110000000000000,$0 ;immer 
dc.w %0000000000011101,%1100000000000000,$0 ; Null 

dc.w %0000000000111011,% 1000000000000000,50 ; sein 

dc.w %1100110001110111,%0000000000000000,$0 
dc.w %0110011011101110,%0110000000011000,$0 
dc.w %0011001111011100,%1001000000011000,$0 
dc.w %0001101110111000, %1111000000011000,$0 
dc.w %0000111111110000, %1001000000011000,$0 

I 

oldirqebene: dc.l 0 
intena_buf: dc.w 0 

9 

gfxbase: dc.l 0 ; graphics.basis 

gfxname: dc.b "graphics.library ",0 ; Libraryname 
even 

bitmap: blk.b 40,0 ; BitMap-Struktur 

rastport: blk.b 100,0 ; RastPort-Struktur 

colortable: 

dc.w 0,1000,200,600,500,1040,2340,1234,4000,12,456,876 
blk. w 20,100 ; 32 Farben 

spritedatas: blk.l 3,0 

copperlist: ; ab hier Copperliste 

dc.w $8e,$3081 ; DIWSTRT 

de. w $90,$30c 1 ; DIWSTOP 

de.w $92,$38 ; DDFSTRT 

de. w $94,$d0 ; DDFSTOP 

colorpuffer: 
blk.b 128,0 


; Farbregister 
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copperpuffer: 
blk.b 60,0 
dc.w $ff01,$fff4 
dc.w $ffdf,$fffe 
dc.w $0101,$fffe 
dc.w $3001,Sfffe 
dc.w $009c,$8010 
dc.l $fffffffe 
demotext: 
dc.b "Dieses ist ein 
even 

END 

Listingende — 


7.10 Blitzschnelle, flackerfreie BOBs 

(DoubleBuffering) 

Bei der Darstellung von Blitterobjekten kann es passieren, daß 
sich die Zugriffszeiten des Blitters mit denen des Rasterstrahls 
überschneiden. Besonders bei großen Objekten, und je näher sie 
sich zum oberen Bildschirmrand befinden. Immer wenn dieser Fall 
eintritt, kommt es zu einem Flackern und Ruckein des Objekts. Um 
dies zu vermeiden, werden die BOBs doppelt gepuffert (double buf- 
fering). Beim Double-Buffering werden mindestens zwei BitMap- 
Strukturen von gleicher Größe und Aussehen benötigt. Dabei wird 
eine BitMap-Struktur über die Copperliste aktiviert, die andere liegt 
nicht sichtbar für den Benutzer im Speicher. Soll jetzt ein Objekt 
dargestellt werden, so wird dieses im unsichtbaren Hintergrund 
aufgebaut. Während des Copper- oder Rasterinterrupts wird die 
unsichtbare BitMap über die Copperliste aktiviert. Das führt zu ei¬ 
nem blitzschnellen und ruckfreien Erscheinen des Objekts. 


; Screen-Customregister 
; Wait 255 

; Wait maximale Pos. 

; Wait 1 (=256) 

; max. $3801 
; CopperlRQ auslösen 
; Copperlistende 

Biitter-Objekt (BOB)",0 
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Da wir das Umschalten der BitMaps während des Copper- bzw. 
Rasterstrahlinterrupts vornehmen, um eine absolut ruckfreie Ani¬ 
mation zu gewährleisten, kann sich ein Objekt maximal 50 Punkte 
in der Sekunde bewegen, da die Interrupts ebenso oft aufgerufen 
werden. Wollen sie die Animation beschleunigen, so müssen sie 
das Objekt halt um zwei oder mehr Punkte bewegen. 

Das Double-Buffering kann auf mehrere Arten programmiert wer¬ 
den: 

1. Methode: 

Es werden zwei BitMap-Strukturen angelegt (Hintergründe), die 
gleichgroß sind und gleiches Aussehen haben, also absolut iden¬ 
tisch sind. Wir nennen die beiden BitMap-Strukturen mal BitMap A 
und BitMap B. Als erstes ist BitMap A aktiviert. Nun schreiben wir 
von allen Objekten den Hintergrund in die unsichtbare BitMap (Bit- 
Map B) an den alten Positionen zurück, retten den Hintergrund an 
den neuen Positionen und schreiben schließlich das eigentliche Ob¬ 
jekt an den neuen Positionen in den unsichtbaren Hintergrund. Jetzt 
vertauschen wir die BitMaps, so daß BitMap B aktiviert wird und 
BitMap A unsichtbar ist. Das Vertauschen erledigen wir während 
des Copperinterrupts, damit die Bewegung auch absolut ruckfrei 
wird. Nun müssen wir noch die gesamte aktive BitMap (B) in die 
unsichtbare (A) kopieren, damit die beiden Hintergründe wieder ab¬ 
solut identisch sind. Wollen wir das Objekt jetzt ein weiteres Mal 
bewegen, so müssen alle Schritte erneut wiederholt werden. 

Damit sie das ganze auch besser verstehen, hier alles nochmal in 
Kurzform: 

- zwei identische BitMap-Strukturen anlegen 

- erste BitMap-Struktur aktivieren 
Loop: 

- Hintergrund an alten Positionen zurückschreiben 

- Hintergrund an neuen Positionen retten 

- Objekte an neuen Positionen in Hintergrund schreiben 

- BitMap-Strukturen während des Copperinterrupts vertauschen 
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- aktive BitMap in unsichtbare BitMap kopieren 

- Objekte bewegen (Positionen ändern) 

- wieder zum Anfang (Loop) 

Vorteil: 

Absolut flacker- und ruckfreie Bewegung der Objekte. Relativ ein¬ 
fach zu programmieren. 

Nachteil: 

Nicht sehr schnell. Nur für kleine Anzahl von kleinen Objekten 
geeignet, ansonsten großer Speicherbedarf. Großer Aufwand für 
die Hintergrundaufbearbeitung nötig. 


2. Methode: 

Es werden wieder zwei gleiche BitMap-Strukturen mit gleichem 
Aussehen angelegt (BitMap A und B). Um jetzt ein Objekt erschei¬ 
nen zu lassen, bzw. zu bewegen, retten wir den Hintergrund aus 
der unsichtbaren BitMap (B). Jetzt schreiben wir das eigentliche 
Objekt in den ebenfalls unsichtbaren Hintergrund (BitMap B). Wir 
vertauschen wieder die BitMap-Strukturen während des Copperin¬ 
terrupts, so daß BitMap B aktiviert ist und BitMap A unsichtbar. Als 
letztes Schreiben wir den alten Hintergrund in die unsichtbare Bit- 
Map (A) wieder zurück. Das war eigentlich schon alles. Wie sie 
sehen, ist der Aufwand fast derselbe, nur daß wir das Kopieren der 
einen BitMap-Struktur in die andere weglassen. Damit ist diese 
Methode gegenüber der ersten um einiges schneller. 

Kurzformbeschreibung: 

- zwei identische BitMap-Strukturen anlegen 

- erste BitMap-Struktur aktivieren 
Loop: 

- Hintergrund an neuen Positionen aus unsichtbarer BitMap retten 

- Objekte in unsichtbare BitMap-Struktur kopieren 
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- BitMap-Strukturen während des Copperinterrupts vertauschen 

- alten Hintergrund in unsichtbare BitMap zurückschreiben 

- Objekte bewegen (Positionen ändern) 

- wieder zum Anfang (Loop) 

Vorteil: 

Die selben wie bei der ersten Methode, jedoch um einiges schnel¬ 
ler. 

Nachteil: 

Großer Aufwand für die Hintergrundaufbearbeitung. Bei Animation 
eines Objekts mit verschieden großen Ausmaßen einer Sequence 
ist diese Methode nicht mehr anwendbar. Bei Animation eines Obj- 
kets müssen alle Sequencen gleichgroß sein. 


3. Methode: 

Die Methode, auf die wir gleich eingehen, werden wir als Beispiel 
im nächsten Abschnitt verwenden. Denn es ist von allen wohl die 
einfachste und schnellste Methode. 

Es werden diesmal drei, statt zwei BitMap-Strukturen angelegt, 
die alle absolut identisch sind. Die dritte wird dabei für die Hinter¬ 
grundaufbearbeitung benutzt. Sie werden sicherlich denken, was 
das für ein Speicher kostet! Aber weit gefehlt. Denn damit sparen 
sie das lästige Anlegen der SaveBuffer-Speicher mit der Routine 
GetSaveBuffer (). Denn wenn sie zum Beispiel 10 Objekte darstel¬ 
len wollen, kostet das in der Regel mehr Speicher, als wenn sie ei¬ 
nen dritten Hintergrund anlegen. Außerdem sparen sie auch enor¬ 
me Bitterzeit, da sie das Objekt nur in den Hintergrund kopieren 
brauchen. Das zusätzliche Retten und wieder Zurückschreiben des 
Hintergrundes entfällt. 
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Wollen sie ein Objekt bewegen, so schreiben sie die Grafikdaten 
des Objekts in die unsichtbare BitMap (B) und aktivieren diese 
während des Copperinterrupts, so daß BitMap A jetzt unsichtbar 
ist. Damit der unsichtbare Hintergrund auch wieder seinen Aus¬ 
gangszustand besitzt, kopieren sie die BitMap C in die unsichtbare 
BitMap (A). Das war schon alles. 

Kurzformbeschreibung: 

- drei identische BitMap-Strukturen anlegen 

- erste BitMap über Copperliste aktivieren 
Loop: 

- Objekte in unsichtbare BitMap-Struktur kopieren 

- BitMap-Strukturen eins und zwei im Copper-IRQ vertauschen 

- BitMap-Struktur drei in unsichtbare kopieren (CopyBitMap) 

- Objekte bewegen (Position, Aussehen etc.) 

- wieder zum Anfang (Loop) 

Nachteile: 

Anlegen einer dritten BitMap-Struktur notwendig. Eventuell zu ho¬ 
her Speicherbedarf (nur bei kleiner Anzahl von Objekten). 

Vorteile: 

Sehr schnelle Ausführungszeiten (Animation) und einfach zu pro¬ 
grammieren. Sehr gut für Animationen von Objekten mit verschie¬ 
den großen Sequencen geeignet. 

Das waren jetzt nur drei Methoden. Es gibt noch einige mehr, die 
aber vom Prinzip her auf diese aufbauen. Unser Beispielprogramm, 
das wir im nächsten Abschnitt programmieren, werden wir nach 
der dritten Methode schreiben. 
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7.11 Collisionen zwischen BOBs 

Ein Blitterobjekt darzustellen bzw. zu animieren ist ja ganz schön. 
Aber was nützt einem dies bei der Spieleprogrammierung, wenn ei¬ 
ne Figur durch eine Mauer läuft, wo sie eigentlich hätte anhalten 
sollen? 

In diesem Fall wäre es erforderlich gewesen, eine Berührung 
(Collision) mit der Mauer abzufragen und entsprechend darauf zu 
reagieren. Um eine Collision zwischen zwei Objekten festzustellen, 
müssen die Positionen miteinander verglichen werden. Überschnei¬ 
den sich diese, so muß in diesem Bereich noch jeder Punkt des ei¬ 
nen Objekts mit dem anderen abgefragt werden. Liegen diese über¬ 
einander, so fand eine Collision statt. 

Damit die Collisionsabfrage auch schnell vonstatten geht, wird ei¬ 
ne ODER-Maske von allen BitMaps eines Objekts angelegt. Die 
schon bereits erwähnte CollMask. Sie besitzt dasselbe Aussehen 
wie die ShadowMask und wird deshalb in der Regel auch auf die 
gleiche Adresse gesetzt. Wir brauchen jetzt nur noch eine Routine, 
die die Positionen und ggf. die Collisionsmasken miteinander ver¬ 
gleicht und uns meldet, ob eine Collision vorliegt oder nicht. 

Selbstverständlich folgt auch an dieser Stelle ein Listing einer 
entsprechenden Routine, welche sich Collision () nennt. Sie benö¬ 
tigt in den Adressregistern AO und AI die Adressen der beiden Ob- 
jektArgs- Strukturen von den entsprechenden Objekten, die auf ei¬ 
ne Collision getestet werden sollen. Wenn eine Collision vorliegt, 
wird im Datenregister DO eine 1 zurückgegeben, andernfalls eine 0. 
Die Collsionsroutine ist unabhängig von einer BitMap. Das bedeu¬ 
tet, daß auch Collisionen von Objekten getestet werden, die sich 
außerhalb der BitMap befinden. 
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Routine: Collision (A0,A1) (ObjektArgsl ,ObjektArgs2) 

Parameter: AO = Adresse der ObjektArgs-Struktur von BOB 1 
AI = Adresse der ObjektArgs-Struktur von BOB 2 
Rückgabe: in DO = 0, dann keine Collision 

DO = 1, dann liegt eine Collision vor 

Erklärung: Diese Routine testet eine Collision zwischen zwei Ob¬ 
jekten. Wenn eine Collision vorliegt, wird in DO eine 1 
zurückgegeben, andernfalls eine 0. Testet auch Colli¬ 
sionen zwischen ausgeschalteten und sichtbaren 
BOBs - ist nicht von einer BitMap abhängig. 

Hier das dazugehörige Listing: 

Collisionsabfrage AO = OB Args 1; AI = OB Args 2; 

Diese Routine kann PC-Relative assembliert werden 
Collision: 
move.l #$dff000,a6 

move.w 6(a1),d0 ; Ypos 

move.w 8(a 1),d1 ; Xpos 

sub. w 8(a0),dl ; relative Xpos von BOB 2 

sub.w 6(a0),d0 ; relative Ypos von BOB 2 

bmi coll_ynegativ ; Ypos negativ ? 

cmp.w 1~0(a0),d0 ; lf relYpos >= Höhe (BOB 1) 

then No Co II 

bge coll_nocoll ; Keine Collision 

bra coli_reixpos ; relative Xpos auf Collision 

testen 

coll_ynegativ: 

move.w d0,d2 ; relYpos nach D2 

add. w 10(a1),d2 ; plus Höhe (BOB 2) 

cmp.w #0,d2 ; lf relYpos+Höhe <= Null 

then No Coll 

ble coll_nocoll ; Keine Collision 

coll_relxpos: 

tst. w dl ; XPos negativ ? 

bmi coll_xnegativ 

move.w 12(a0),d2 ; WordWidth (BOB 1) nach D2 
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Isl.w #4, d2 

cmp.w d2,d1 

bge coll_nocoll 
bra coll_begin 

coll_xnegativ: 
move.w 12(a1),d2 
Isl.w #4,d2 

add.w dl,d2 
cmp.w #0,d2 

ble coll_nocoll 
coll_begin: 
lea coll_blitterargs,a2 
move.l #$ffffffff, 18(a2) 
clr.w 16(a2) 
clr.l d2 
clr.l d3 

ab hier Y-Offset berechnen 
tstwdO 
bmi coll_b3 
move.w 12(a0),d4 
Isl.w #1,d4 
mulu d0,d4 
add.l d4,d2 
move.w 10(a0),d4 
sub.w d0,d4 
cmp.w 10(a1),d4 

bgt coll_h2 
move.w d4,14(a2) 
bra coll_offsetx 
coll_h2: 

move.w 10(a1),14(a2) 
bra coli offsetx 


; mal 16 = Pixelbreite von 
BOB 1 

; If reIXpos >= Pixelbreite von 
BOB1 then NoColl 
; Keine Collision 
; Collisionsberechnung be¬ 
ginnen 

; WordWidth (BOB 2) nach D2 
; mal 16 = Pixelbreite von 
BOB 2 

; plus reIXpos 

; If reIXpos+Pixelbreite <= 
Null then NoColl 
; keine Collision 

; Blittrargs nach A2 
; FirstMask 
; ShiftB-Wert löschen 
; Pos-Offset von BOB 1 
; Pos-Offset von BOB 2 
von BOB 1 und 2 - 
; YPos negativ ? 

; WordWidth nach D4 (BOB 1) 
; mal 2 - ByteWidth 
; mal relYpos von BOB 2 
; zu Offset BOB 1 addieren 
; Höhe von BOB 1 
; minus relYpos = HöheBl 
; If HöheBl > Höhe2 then Hö- 
he2 = BlitterHöhe 

; BlitterHöhe in BUtterargs 
; X-Offset berechnen 

; BlitterHöhe in Blitterargs 
; X-Offset berechnen 
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coll_b3: 
neg.w dO 
move.w 12(a1),d4 
Isl.w#1,d4 
mulu d0,d4 

add.l d4,d3 
move.w 10(a1),d4 
sub.w d0,d4 
cmp.w 10(a0),d4 

bgt co //_ hl 
move.w d4,14(a2) 
bra coll_offsetx 
coll_h1: 

move.w 10(a0),14(a2) 
ab hier X-Offset von BOB 1 
coll_offsetx: 
tstwdl 
bmi coll_b4 
move.w d1,d4 
Isr.w#4,d4 
move.w 12(a0),d5 

sub.w d4,d5 

cmp.w 12(a1),d5 

bgt coll_w2 
move.w d5,12 (a 2) 
bra coll_x2 

coll_w2: 

move.w 12(a1),12(a2) 
coii_x2: 

IsT.w #1,d4 
and.l #$0000ffff,d4 
add.l d4,d2 


; ab hier negative Y-Pos 
; relYpos jetzt positiv 
; WordWidth nach D4 
; mal 2 = ByteWidth 
; mal relYpos = YOffset von 
BOB 2 

; zu Offset BOB 2 addieren 
; Höhe von BOB 2 nach 04 
; minus relYpos = HB2 
; If HB2 > Hl then Hl m Blit- 
terHöhe 

; BlitterHöhe in Blitterargs 
; X-Offset berechnen 

; BlitterHöhe in Blitterargs 


; reIXpos negativ ? 

; reiXpos nach d4 
; durch 16 teilen ohne Rest 
; WordWidth von BOB 1 nach 
D5 

; minus WX2 = WordBreite 
von BOB 1 

; If WB1 > W2 then W2 = Blit- 
terBreite 

; Bl itterbreite in Blitterargs 
; Shift- und Mask-Werte be¬ 
rechnen 

; Bl itterbreite in Blitterargs 

; WX2 mal 2, damit in Bytes 
; Hl-Word löschen 
; zu Offset BOB 1 addieren 
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and.w#15,d1 

beq coll_blitter 
move.w dl, 16(a2) 
subq.b #1,d1 

move.w #$ffff,d4 
coll_xloop: 

Isr.w#1,d4 
dbra d1,coll_xloop 
move.w d4,18(a2) 
coll_b5: 

cmp.w#1,12(a2) 
bne coll_blitter 
move.w 18(a2),20(a2) 

bra coll_blitter 
coll_b4: 

neg.w dl 
move.w d1,d4 
Isr.w#4,d4 

move.w 12(a1),d5 
sub.w d4,d5 
cmp.w 12(a0),d5 

bgt coll_w1 
move.w d5,12(a2) 
bra coll_x3 

coll_w1: 

move.w 12(a0),12(a2) 
coll_x3: 

Isl.w#1,d4 
and.l #$0000ffff,d4 
add.l d4,d3 


; ShiftB von reIXpos ermit¬ 
teln 
; Null ? 

; ShiftB-Wert minus 1, wegen 
DBRA 
; FirstMask 

; Maske berechnen 

; FirstMask speichern 

; BlitterBreite = 1 ? 

; wenn ja, FirstMask = Last- 
Mask 

; ab hier negativen X-Offset 
berechnen 
; reIXpos jetzt positiv 
; reIXpos nach D4 
; durch 16 teilen ohne Rest = 
WX2 

; W2 nach D5 
; minus WX2 = WB2 
; If WB2 > W1 then W1 = Blit- 
terBreite 

; Blitterbreite in Blitterargs 
; ShiftB- und Mask-Werte be¬ 
rechnen 

; Blitterbreite in Blitterargs 

; WX2 mal 2 = X2-Offset 
; Hl-Word löschen 
; zu Offset von BOB 2 addie¬ 
ren 
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and.w#15,d1 
beq coll_blitter 
sub.l #2, d2 

move.w #16,d4 
sub.w d1,d4 
move.w d4,16(a2) 
sub.w #1,dl 
move.w #$ffff,d7 
colljloop: 

Isr.w#1 f d7 
dbra d1,coll_tloop 
move.w d7,18(a2) 
bra coll_b5 
coll_blitter: 
move.l 18(a2),$44(a6) 
move.w 12(a0),d0 

move.w 12(a1),d1 

sub.w 12(a2),d0 
sub.w 12(a2),d1 
Isl.w#1,d0 
Isl.w#1,d1 
move.w d0,$64(a6) 
move.w d1,$62(a6) 
move.w 16(a2),d0 
Isl.w #8,dO 
Isl.w #4,dO 
move.w d0,$42(a6) 
move.w #$0cc0,$40(a6) 

add.l 28(a0),d2 

add.l 28(a1),d3 

move.l d2,$50(a6) 
move.l d3,$4c(a6) 


; reIXpos; Rest ermitteln 

; Offset minus 2 von BOB 1 
(d2) 

; ShiftB-Wert invertieren 
; ShiftB-Wert in Blitterargs 


; FirstMask 

; WordWidth von BOB 1 nach 
DO 

; WordWidth von BOB 2 nach 
Dl 

; Modulo A 
; Modulo B 
; Modulo A in Bytes 
; Modulo B in Bytes 
; Modulo A 
; Modulo B 
; ShiftB-Wert nach DO 

; real ShiftB-Wert berechnen 
; Wert von BLTCON 1 
; BLTCON 0: USE A + B, LF7 
+ LF6 

; CollMask-Adresse zu Offset 
BOB 1 (A) 

; CollMask-Adresse zu Offset 
BOB 2 (B) 

; Quelle A (AO) (d2) 

; Quelle B (AI) (d3) 
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move.w 12(a2),d7 
move.w 14(a2),d6 
and.w #$3ff,d6 
Isl.w#6,d6 
and.w #$3f,d7 
add.wd6,d7 
move.w d7,$58(a6) 
coll_wait: 
btst #14,$2(a6) 
bne coll_wait 
btst #13,$2 (aß) 
bne coll_nocoll 
move.l #1,d0 

rts 

coll_nocoll: 
clr.l dO 
rts 

coll_blitterargs: blk.b 22,0 
Listingende — 


; Breite in Words 
; Höhe in Pixel 
; Blittersize errechnen 
; D7=breite in Words 
; D6 ss höhe in Pixel 
; D7 ist jetzt Blittersize 
; Blitter starten 

; Bit BBusy testen 
; wenn Null, dann Blitterende 
; DMAControllregisterRead 

; Collision stattgefunden (DO 
= V 


; Ende 


Zum Abschluß des Kapitels (ein Abschnitt folgt noch), ein Bei- 
spiellisting, das drei Blitterobjekte nach der dritten Methode bewegt 
und eine Collision zwischen zwei Objekten testet. Bei Berührung 
stoßen sie sich gegenseitig ab. Auf Druck der rechten Maustaste 
wird das Programm beendet. 


Listingbeschreibung: 

Auch hier schalten wir wieder das Betriebssystem aus, da wir 
unseren eigenen Copperinterrupt programmieren. Wir legen auch 
wieder eine RastPort-Struktur an, damit später auch Text ausge¬ 
geben werden kann. Nun erzeugen wir drei identische BitMap- 
Strukturen und printen in allen dreien einen Hintergrundtext. Ein 
völlig schwarzer Hintergrund wäre ja ein bißchen eintönig. Die er¬ 
ste BitMap wird über die Copperliste gestartet. Natürlich müssen 
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wir auch für alle drei Objekte die Masken (ShadowMask und Coll- 
Mask) erzeugen. Damit die Funktion PrintObjekt () auch funktio¬ 
niert, speichern wir die Adresse der zweiten BitMap (der unsicht¬ 
baren) in die Variable po_bitmap. Der Copperinterrupt wird nun ini¬ 
tialisiert. 

Das Verwalten von drei Objekten erfordert schon einiges an Auf¬ 
wand. Deswegen legen wir uns eine BOB-Tabelle an und geben un¬ 
sere BOBs über die Funktion WriteBobsOnly () alle auf einmal aus. 
Bevor wir zur Hauptschleife kommen, legen wir uns noch eine Bit- 
Map-Tabelle an, in der alle drei BitMap-Strukturen enthalten sind. 
Diese brauchen wir für das Vertauschen und Restaurieren des 
Hintergrundes. 

Zum Hauptprogramm (Schleife): 

Als erstes bewegen wir jedes einzelne Objekt und retten dabei 
immer die alte Position, sonst könnten wir bei einer Collision die 
zwei Objekte nicht voneinander abstoßen lassen. Danach werden 
die ersten beiden BOBs auf Collision getestet. Ist dies der Fall, so 
werden sie auf ihre alten Koordinaten zurückgesetzt. Beim dritten 
Schritt schreiben wir alle Objekte mit der Funktion WriteBobsOnlyO 
in die unsichtbare BitMap. Die Unterroutine Change_BitMaps ver¬ 
tauscht die ersten beiden BitMap-Strukturen und aktiviert die un¬ 
sichtbare über die Copperliste. Dabei darf nicht vergessen werden, 
die jetzt unsichtbare BitMap wieder in die Variable po_bitmap zu 
speichern. Als letzter Schritt wird die dritte BitMap mit der Funktion 
CopyBitMapO in die unsichtbare kopiert (Hintergrund wieder im al¬ 
ten Zustand). 

Wenn sie auf die rechte Maustaste drücken, wird das Programm 
beendet. 
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Es folgt jetzt das dazugehörige Listing: 


Betriebssystem ausschalten — 
move.l #600000,dO 
motor_aus: 


sub.l#1,d0 

; warten 

cmp.l #0,d0 

; bis 

bne motor_aus 

; Diskmotor aus 

move.l 4,a6 

; IRQs aus 

jsr-120(a6) 

; Disable () 

move.l 4,a6 

; ExecBasis 

lea gfxname,a1 

; Libraryname 

clr.ldO 

; Version = 0 

jsr -552(a6) 

; Open Library () 

move.l dO,gfxbase 

; graphics.basis 

lea rastport,a1 

; RastPort-Struktur 

move.l gfxbase,a6 

; graphics.basis 

jsr -198(a6) 

; InitRastPort () 

lea bitmapA,aO 

; BitMap-Struktur A 

move.l #5, dO 

; Depth = 5 

move.l #320,dl 

; 320 breit 

move.l #256, d2 

; 256 hoch 

move.l #1,d3 

; Speicher reservieren 

bsr initbitmap 

; BitMap init. 

tstwdO 

; Error ? 

bneexit 1 



— Erzeugt einen Screen ü ber die Hardware 

— Printet einen Text und bewegt drei BOBs 

— im Double-Buffering (Methode 3), testet 

— eine Collision zwischen zwei BOBs 

— und auf rechte Maustaste erscheint alte 

— Copperliste und Programm wird beendet 

— Programmname = CoiiisionBOB 
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lea bitmapB,aO 

; BitMap-Struktur B 

move.l #5,dO 

; Depth = 5 

move.l #320, dl 

; 320 breit 

move.l #256,d2 

; 256 hoch 

move.l #1,d3 

; Speicher reservieren 

bsr initbitmap 

; BitMap init. 

tstwdO 

; Error ? 

bne exit_ 1 


lea bitmapC,aO 

; BitMap-Struktur C 

move.l #5, dO 

; Depth ss 5 

move.l #320,dl 

; 320 breit 

move.l #256,d2 

; 256 hoch 

move.l #1,d3 

; Speicher reservieren 

bsr initbitmap 

; BitMap init. 

tstwdO 
bne exit_ 1 

; Error ? 

lea colortable,aO 

; Farbtabelle 

lea colorpuffer,a1 

; Copperpuffer 

bsr initcolor 

; Farbregister init. 


erste BitMap ber Copperliste aktivieren — 


lea bitmapA,aO 
lea copperpuffer,al 
clr.l dO 

bsr initcoppermap 

move.l #copperlist,$dff080 
clr.w $dff088 


; BitMap-Struktur A 
; Copperpuffer 
; Modus = Normal 
; Customregister init. 

; Copperlistadresse 
; Copperliste starten 


mo ve. w #$20,$dff096 
move.l #spritedatas,$dff120 

lea bitmapA,aO 
lea rastport,a1 


Sprite-DMA aus 
Sprite 0 (Mauszeiger) aus 

BitMap-Struktur A 
RastPort-Struktur 
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move.l a0,4(a1) 

lea demotext,aO 
move.l gfxbase,a6 
clr.l dO 

move.UtlOO.dl 
bsr printtext 

I 

lea bitmapB.aO 
lea rastport,a1 
move.l a0,4(a1) 

lea demotext,aO 
move.l gfxbase,a6 
clr.l dO 

move.UtlOO.dl 
bsr printtext 

9 

lea bitmapC.aO 
lea rastport,a1 
move.l a0,4(a1) 

lea demotext,aO 
move.l gfxbase,a6 
clr.l dO 

move.l #100, dl 
bsr printtext 


Masken initialisieren von 
lea objektargsI.aO 
move.l tt2,d0 

bsr InitMask 

tstwdO 
bne exit 2 


; BitMap in RastPort ein- 
hä ngen 
; Textadresse 
; graphics.basis 
; X-Position 
; Y-Position 

; Text printen in BitMap A 

; BitMap-Struktur B 
; RastPort-Struktur 
; BitMap in RastPort 
einh ängen 
; Textadresse 
; graphics.basis 
; X-Position 
; Y-Position 

; Text printen in BitMap B 

; BitMap-Struktur C 
; RastPort-Struktur 
; BitMap in RastPort ein- 
hä ngen 
; Textadresse 
; graphics.basis 
; X-Position 
; Y-Position 

; Text printen in BitMap C 


1 — 

; ObjektArgs-Struktur 
; MEMORY + CollMask = 
ShadowMask 

; Initialisiere Masken und 
Puffer 
; Error ? 
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Masken initialisieren von BOB 2 — 
lea objektargs2,aO ; ObjektArgs-Struktur 

move.l #2,dO ; MEMORY + CollMask = 

ShadowMask 

bsr InitMask ; Initialisiere Masken und 

Puffer 

tstwdO ; Error? 

bne exit_2 

9 

Masken initialisieren von BOB 3 — 
lea objektargs3,a0 ; ObjektArgs-Struktur 

move.l #2,dO ; MEMORY + CollMask = 

ShadowMask 

bsr InitMask ; Initialisiere Masken und 

Puffer 

tstwdO ; Error? 

bne exit_2 

9 

BitMap-Struktur B in Variable pojbitmap schreiben — 
move.l ttbitmapB,po_bitmap 

9 

Copperlrq einschalten — 

move.l $6c,oldirqebene ; alte IRQ-Ebene retten 

move.w $dff01c,intena_buf ; IRQ-Register retten 

move.l #Copperlrq,$6c ; eigene IRQ-Routine 

einh ängen 

move.w #$7fff,$dff09a ; alle IRQs aus 

move.w ft$c010,$dff09a ; Copper-IRQ ein 

9 

alle Objekte in eine Tabelle eintragen — 
lea bobtabelle,aO 

move.l aO,printbob_tabelle; in BOB-Tabelle eintragen 
move.w #3,(a0) ; Anzahl = 3 

move.l #objektargs1,2(a0) ; ObjektArgs 1 

move.l #objektargs2,6(a0) ; ObjektArgs 2 

move.l#objektargs3,10(a0) ; ObjektArgs 3 


198 



BitMaptabelle zum Vertauschen anlegen — 
lea bitmap_tabelle,aO 

move.l #bitmapA,(aO) ; sichtbare bei Offset 0 

move.l #bitmapB,4(aO) ; unsichtbare bei Offset 4 

move.l #bitmapC,8(aO) ; Hintergrund-Bitmap bei 

Offset 8 

9 

Maustaste abfragen — 
main: 

btst#10,$dff016 ; Rechte Maustaste ? 

beq exit ; ja, dann Prg. ende 

bsr move_objekts 
bsr test_collision 

bsr writebobsonly ; BOBs in unsichtbare BitMap 

kopieren 

bsr change_bitmaps 
bsr copy_bitmaps 

bra main ; zur ck zum Anfang 

Objekte 1 bis 3 bewegen 
move_objekts: 
lea objektargs1,aO 
lea speed1,a1 
bsr move_bob 

9 

lea objektargs2,aO 
lea speed2,a1 
bsr move_bob 

9 

lea objektargs3,a0 
lea speed3,a1 
bsr move_bob 
rts 

Objekte 1 und 2 auf Collision testen — 
und ggfs, gegeneinander abprallen lassen — 
test_collision: 
lea objektargs1,aO 


; ObjektArgs-Struktur BOB 1 
; Speedpuffer BOB 1 
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lea objektargs2,a1 
bsr collision 

; Collision testen 

tstwdO 

; liegt eine vor? 

beq test_end 
lea objektargs1,a0 

; ObjektArgs-Struktur 1 

lea speedl.al 
move.l (aO),6(aO) 

; auf alte Position wieder set¬ 

neg.w (al) 

zen 

; Y-Richtung ndern 

neg.w 2 (al) 

; X-Richtung ndern 

9 

lea objektargs2,a0 

; ObjektArgs-Struktur 2 

lea speed2,a1 
move.l (a0),6(a0) 

; auf alte Position wieder set¬ 

neg.w (al) 

zen 

; Y-Richtung ndern 

neg.w 2 (al) 

; X-Richtung ndern 

test_end: 

rts 

•— BitMaps vertauschen und aktivieren — 

change_bitmaps: 
lea bitmap_tabelle,a3 
move.l (a3),a0 

; A0 = sichtbare BitMap 

move.l 4(a3),(a3) 

; unsichtbare nach sichtbare 

move.l a0,4(a3) 

; sichbare nach unsichtbare 

move.wftl, irq_ change 

; im Copper-IRQ vertauschen 

wait_irq: 
tst.w irq_change 

; auf vertauschen warten 

bne waitjrq 
move.l 4(a3),po_bitmap 

; unsichtbare BitMap in Va¬ 

rts 

9 

Hintergrund wiederherstellen 

riable 

; f r PrintObjekt {) 

copy_bitmaps: 
lea bitmap_tabelle,a3 
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move.l 8(a3),a0 
move.l 4(a3),a1 
bsr copybitmap 
rts 

t 

CopperIRQ-Routine ~ 
copperirq: 

move.w #$0010,$dff09c 
movem.l d0-d7/a0-a6,-(sp) 

f 

tstw irq_c hange 
beq irq_end 

move.l bitmap_tabelle,aO 

lea copperpuffer,al 
clr.l dO 

bsr initcoppermap 
clr.w irq_c hange 

9 

irq_end: 

movem.l (sp)+,d0-d7/a0-a6 
rte 


; Quell-BitMap 
; Ziel-BitMap 
; BitMaps kopieren 


; CoperlRQ zurü cksetzen 
; Daten- Adressregister retten 

; BitMaps vertauschen ? 

; noch unsichtbare BitMap 
holen 

; Copperpuffer 
; Modus = Normal 
; BitMap ber Copperliste akti¬ 
vieren 

; Vertauschung zu ende 


; Register zur ckholen 
; IRQ-Programm beenden 


BOB nur bewegen (Positionen ndern) — 

AO = ObjektArgs, AI = Speed (2 Words) — 
move_bob: 

move.l 6(a0),(a0) ; alte Position retten 

cmp. w #288,8(aO) ; XPos 

blt x_kleiner ; < 288 ? 

neg.w2(al) ; Vorzeichen von X-Pos. 

ä ndern 

x_kleiner: 

cmp.w #0,8(a0) ; XPos 

bge x_gr er_gleich 
neg.w 2(a1) 


; Vorzeichen 
ä ndern 


von X-Pos 



x_grser_gleich: 
move.w 2(a1),d0 
add.w d0,8(a0) 


; X-Speed 
; New-XPos. 


cmp.w #246,6(a0) ; YPos 

blt y_kleiner ; < 246 ? 

neg.w (al) ; Vorzeichen von Y-Pos. 

ä ndern 

y_kleiner: 

cmp.w #0,6(a0) ; YPos 

bge y_grser_gleich 

neg.w (al) ; Vorzeichen von Y-Pos än¬ 

dern 

y_gr ser_gleich: 

move.w (a1),dO ; Y-Speed 

add.w d0,6(a0) ; New-YPos. 

rts 

> 

Programm beenden — 
exit: 

l 

BOBs ausschallen — 
bsr change_bitmaps 
bsr copy_bitmaps 

I 

CopperlRQ wieder aus — 

or. w #$8000, intena_buf ; Set/Clr- Bit setzen 

move.w #$7fff,$dff09a ; alle IRQs aus 

move.w intena_buf,$dff09a ; alte IRQs wieder einschalten 
move.l oldirqebene,$6c ; System-IRQ-Routine ein- 

hä ngen 

i 

exit_2: 

von BOB 1 Maskenpuffer wieder freigeben — 
lea objektargs1,a0 ; ObjektArgs-Struktur 

bsr freemask ; Maskenpuffer freigeben 
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von BOB 2 Maskenpuffer wieder freigeben — 
lea objektargs2,a0 ; ObjektArgs-Struktur 

bsr freemask ; Maskenpuffer freigeben 

von BOB 3 Maskenpuffer wieder freigeben — 


lea objektargs3,a0 
bsr freemask 

; ObjektArgs-Struktur 
; Maskenpuffer freigeben 

9 

move.l gfxbase,aO 
move.l 38(a0),$dff080 
clr.w $dff088 

; graphics.basis 
; alte Copperlistadresse 
; und starten 

move.w #$8220,$dff096 

; Sprite-DMA an 

9 

lea bitmapA,aO 
bsr clearbitmap 

; BitMap-Struktur A 
; BitMap A freigeben 

9 

lea bitmapB,aO 
bsr clearbitmap 

; BitMap-Struktur B 
; BitMap B freigeben 

9 

lea bitmapC,aO 
bsr clearbitmap 

; BitMap-Struktur C 
; BitMap C freigeben 

9 

exit_1: 

move.l gfxbase,a1 
move.l 4, aß 
jsr-414(a6) 

; graphics.basis 
; exec.basis 
; CloseLibrary () 

9 

System wieder anschalten — 
move.l 4,aß 
jsr-12ß(aß) 
rts 

; IRQs wieder erlauben 
; Enable () 

; Programmende 


Routine zum Copieren von Grafik mit dem Blitter 
AO = Quell-BitMap; AI = Ziel-BitMap 
Copy BitMap: 
move.l tt$dffOOO,aß 
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move.l #$09 f00000,$40 (a6) 

move.l #- 1,$44(a6) 

clr.l $64(a6) 
move.w (a0),d5 
Isr.w#1,d5 
move.w 2(a0),d6 
and.w #$3ff,d6 
Isl.w#6,d6 
and.w #$3f,d5 
add.w d6,d5 
clr.w dO 

move.b 5(a0),d0 
subq #1,d0 
add.l #8,a0 
add.l #8,al 

cbmapjoop: 
move.l (a0)+,$50(a6) 

move.l (a1)+,$54(a6) 
move.w d5,$58(a6) 

cbmap wait: 
btst #14,$2(a6) 
bne cbmap_wait 
dbra dO, cbmapjoop 
rts 


; USE A und D ; Minterm: A 
= D 

; First/Last Mask (alle Bits 
bernehmen) 

; Modulowert von Quelle A 
; Breite in Bytes 
; jetzt in Words 
; Höhe in Pixel 
; Blittersize errechnen 
; D5 = Breite in Words 
; D6 = Höhe in Pixel 
; D5 ist jetzt Blittersize 

; Tiefe 
; minus 1 


; Anfangsadresse von Quelle 
A 

; Anfangsadresse von Ziel D 
; BLTSIZE und Blitteroperati - 
on starten 

; Warten bis Blit fertig 


Nur BOB-Imagedaten in BitMap kopieren — 
printbob_tabelle = BOB-Tabelle — 
WriteBobsOnly: 
move.l printbob_tabelle(pc),a1 
move.w (a1)+,d0 ; Anzahl Einträge 

tstwdO 

beq writebobsonly_end 
clr.l dl 

move.w dO,dl 
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Isl.w#2,d1 
add.l d1,a1 
subq.w#1,d0 
wbjoop: 
move.l -(a1),a0 
cmp.l #0,a0 
beq wbjoop 1 
move.b #2,4(a0) 
movem.l d0/a0-a1,-(sp) 
bsr printobjekt ; 

movem.l (sp)+,d0/a0-a1 
wbjoopl: 

dbra dO, wbjoop 
writebobsonly_end: 
rts 


; Anzahl mal 4 
; Zeiger auf letzten Eintrag 
; Anzahl minus 1 

; Zeiger auf Objekt Args 
; überhaupt vorhanden ? 

; Write BOB only 


printbob_tabelle: dc.l 0 


;— Collisionsabfrage AO = OB Args 1; Als OB Args 2; — 

;— Diese Routine kann PC-Relative assembliert werden — 


collision: 

move.l #$dff000,a6 
move.w 6(a1),d0 
move.w 8(a1),d1 
sub.w 8(a0),d1 
sub.w 6(a0),d0 
bmi coll_ynegativ 
cmp.w 10(a0),d0 

bge coll_nocoll 
bra colijelxpos 


; Ypos 
; Xpos 

; relative Xpos von BOB 2 
; relative Ypos von BOB 2 
; Ypos negativ ? 

; If relYpos >= H he (BOB 1) 
then NoColl 
; Keine Collision 
; relative Xpos auf Collision 
testen 


coll_ynegativ: 
move.w d0,d2 
add.w 10(a1),d2 
cmp.w #0,d2 

ble coll_nocoll 


; relYpos nach D2 
; plus H he (BOB 2) 

; If relYpos+H he <= Null then 
NoColl 

; Keine Collision 
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coll_relxpos: 
tsiwdl 

bmi coll_xnegativ 
move.w 12(a0),d2 
Isl.w#4,d2 

cmp.w d2,d1 

bge coll_nocoll 
bra coll_begin 

coll_xnegativ: 
move.w 12(a1),d2 
Isl.w#4,d2 

add.w dl,d2 
cmp.w #0,d2 

ble coll_nocoll 
coll_begin: 
lea coll_blitterargs,a2 
move.l #$ffffffff, 18(a2) 
clr.w 16(a2) 
clr.l d2 
clr.l d3 

ab hier Y-Offset berechnen von 
tstwdO 
bmi coll_b3 
move.w 12(a0),d4 
isi.w#1,d4 
mulu d0,d4 
add.i d4,d2 
move.w 10(a0),d4 
sub.wd0,d4 
cmp.w 10(a1),d4 

bgt coll_h2 
move.w d4,14(a2) 


; XPos negativ ? 

; WordWidth (BOB 1) nach D2 
; mal 16 = Pixelbreite von 
BOB 1 

; If reIXpos >= Pixelbreite von 
BO Bl then NoColl 
; Keine Collision 
; Collisionsberechnung be¬ 
ginnen 

; WordWidth (BOB 2) nach D2 
; mal 16 = Pixelbreite von 
BOB 2 

; plus reIXpos 

; If reIXpos+Pixelb reite <= 
Null then NoColl 
; keine Collision 

; Blitterargs nach A2 
; FirstMask 
; ShiftB-Wert I sehen 
; Pos-Offset von BOB 1 
; Pos-Offset von BOB 2 
BOB 1 und 2- 
; YPos negativ ? 

; WordWidth nach D4 (BOB 1) 

; mal 2 = ByteWidth 
; mal relYpos von BOB 2 
; zu Offset BOB 1 addieren 
; Höhe von BOB 1 
; minus relYpos = H heBl 
; If H heBl > H he2 then H he2 
= BlitterH he 

; BlitterHöhe in Blitterargs 
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X-Offset berechnen 


bracoll offsetx 
coll_h2: 

move.w 10(a1),14fa2) 
bra coll_offsetx 
coll_b3: 
neg.w dO 
move.w 12(a1),d4 
Isl.w#1,d4 
mulu d0,d4 

add.l d4,d3 
move.w 10(a1),d4 
sub.wd0,d4 
cmp.w 10(a0),d4 

bgt coll_h1 
move.w d4,14(a2) 
bra coll_offsetx 
coll_h1: 

move.w 10(a0),14(a2) 
ab hier X-Offset von BOB 1 
coll_offsetx: 
tstwdl 
bmi coll_b4 
move.w d1,d4 
Isr.w#4,d4 
move.w 12(a0),d5 

sub.w d4,d5 

cmp.w 12(a1),d5 

bgt coll_w2 
move.w dS, 12(a2) 
bra coll_x2 

coll_w2: 

move.w 12(a1),12(a2) 


; BlitterH öhe in Blitterargs 
; X-Offset berechnen 
; ab hier negative Y-Pos 
; relYpos jetzt positiv 
; WordWidth nach D4 
; mal 2 = ByteWidth 
; mal relYpos = YOffset von 
BOB 2 

; zu Offset BOB 2 addieren 
; Höhe von BOB 2 nach D4 
; minus relYpos = HB2 
; If HB2 > Hl then Hl = Blit- 
terHöhe 

; BlitterH he in Blitterargs 
; X-Offset berechnen 

; BlitterH he in Blitterargs 


; reIXpos negativ ? 

; reIXpos nach d4 
; durch 16 teilen ohne Rest 
; WordWidth von BOB 1 nach 
DS 

; minus WX2 = WordBreite 
von BOB 1 

; If WB1 > W2 then W2 = Blit- 
terBreite 

; Blitterbreite in Blitterargs 
; Shift- und Mask-Werte be¬ 
rechnen 

; Blitterbreite in Blitterargs 
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COll_x2: 

Isl.w#1,d4 
and.l #$0000ffff,d4 
add.l d4,d2 
and.w#15,d1 

beq coll_blitter 
move.w dl, 16(a2) 
subq.b #1,d1 

move.w #$ffff,d4 
coll_xloop: 

Isr.wft1,d4 
dbra d1,coll_xloop 
move.w d4,18(a2) 
coll_b5: 

cmp.wttl, 12(a2) 
bne coll_blitter 
move.w 18(a2),20(a2) 

bra coll_blitter 
coll_b4: 

neg.w dl 
move.w d1,d4 
Isr.w #4, d4 

move.w 12(a1),d5 
sub.w d4,d5 
cmp.w 12(a0),d5 

bgt coll_w1 
move.w d5,12(a2) 
bra coll_x3 

coll_w1: 

move.w 12(a0), 12(a2) 


; WX2 mal 2, damit in Bytes 
; Hl-Word löschen 
; zu Offset BOB 1 addieren 
; ShiftB von reIXpos ermit¬ 
teln 
; Null ? 

; ShiftB-Wert minus 1, wegen 
DBRA 
; FirstMask 

; Maske berechnen 

; FirstMask speichern 

; BlitterBreite = 1 ? 

; wenn ja, FirstMask = Last- 
Mask 

; ab hier negativen X-Offset 
berechnen 
; reIXpos jetzt positiv 
; reIXpos nach D4 
; durch 16 teilen ohne Rest = 
WX2 

; W2 nach D5 
; minus WX2= WB2 
; If WB2 > W1 then W1 = Blit- 
terBreite 

; Blitterbreite in Blitterargs 
; ShiftB- und Mask-Werte be¬ 
rechnen 

; Blitterbreite in Blitterargs 
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coll_x3: 

Isl.w #1,d4 
and.l #$0000ffff,d4 
add.l d4,d3 

and.w #15,dl 
beq coll_blitter 
sub.l #2, d2 

move.w #16,d4 
sub.wd1,d4 
move.w d4,16(a2) 
sub.w#1,d1 
move.w #$ffff,d7 
coll_tloop: 

Isr.w#1,d7 
dbra d1,coll_tloop 
move.w d7,18(a2) 
bra coll_b5 
coll_blitter: 
move.l 18(a2),$44(a6) 
move.w 12(aO),dO 

move.w 12(a1),d1 

sub.w 12(a2),d0 
sub.w 12(a2),d1 
Isl.w#1,d0 
Isl.w#1,d1 
move.w d0,$64(a6) 
move.w d1,$62(a6) 
move.w 16(a2),d0 
Isl.w #8, dO 
Isl.w #4,dO 
move.w d0,$42(a6) 
move.w #$0cc0,$40(a6) 


; WX2 mal 2 = X2-0ffset 
; Hl-Word löschen 
; zu Offset von BOB 2 addie¬ 
ren 

; reIXpos; Rest ermitteln 

; Offset minus 2 von BOB 1 
(d2) 

; ShiftB-Wert invertieren 
; ShiftB-Wert in Blitterargs 


; FirstMask 

; WordWidth von BOB 1 nach 
DO 

; WordWidth von BOB 2 nach 
Dl 

; Mo du Io A 
; Modulo B 
; Modulo A in Bytes 
; Modulo B in Bytes 
; Modulo A 
; Modulo B 
; ShiftB-Wert nach DO 

; real ShiftB-Wert berechnen 
; Wert von BLTCON 1 
; BLTCON 0: USE A + B, LF7 
+ LF6 
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add.l 28(a0),d2 

add.l 28(a1),d3 

move.l d2,$50(a6) 
move.l d3,$4c(a6) 
move.w 12(a2),d7 
move.w 14(a2),d6 
and.w #$3ff,d6 
Isl.w #6, d6 
and.w tt$3f,d7 
add.wd6,d7 
move.w d7,$58(a6) 

coll_wait: 
btst #14,$2(a6) 
bne coll_wait 
btsttt13,$2(a6) 
bne coll_nocoll 
move.l #1,dO 

rts 

coll_nocoll: 
clr.l dO 
rts 

coll_blitterargs: blk.b 22,0 

;— ShadowMask-Puffer wieder 
AO = ObjektArgs -- 

FreeMask: 
move.l 20(a0),a1 
cmp.UtO.al 
bne fm_ 1 
rts 

fm_1: 
clr.l 20(a0) 
move.w 12(aO),dO 
Isl.w ttl.dO 


; CollMask-Adresse zu Offset 
BOB 1 (A) 

; CollMask-Adresse zu Offset 
BOB 2 (B) 

; Quelle A (AO) (d2) 

; Quelle B (AI) (d3) 

; Breite in Words 
; Höhe in Pixel 
; Blittersize errechnen 
; D7=breite in Words 
; D6 = Höhe in Pixel 
; D7 ist jetzt Blittersize 
; Blitter starten 

; Bit BBusy testen 
; wenn Null, dann Blitterende 
; DMAControllregisterRead 

; Collision stattgefunden (DO 
= 1 ) 


; Ende. 


freigeben - 


; ShadowMask-Zeiger 
; vorhanden ? 


; ShadowMask-Zeiger I sehen 
; WordWidth 
; mal 2 = ByteWidth 


210 



Grafik-Hardwareproarammieruna 


Kapitel 7 


mulu 10(a0),d0 ; mal Höhe = ShadowMask- 

Size 

move.l #$4,a6 
move.l (a6),a6 

jsr -210(a6) ; FreeMem 

rts 

;— ShadowMask anlegen 

AO = ObjektArgs, DO = Memory/CollMask-Zeiger 
InitMask: 


tstwdO 

beq im_ 1 
movem.l dO,-(sp) 

; Muß ShadowMask-Puffer re¬ 
serviert werden ? 

move.w 12(a0),d0 

; WordWidth 

Isl.w#1,d0 

; mal 2 - Bytes 

mulu 10(a0),d0 

; mal Höhe = ShadowMask- 
Size 

move.l #$10002, dl 
move.l #$4,a6 
move.l (a6),a6 
movem.l aO,-(sp) 

; Chip und ClearMem 

jsr-198(a6) 
movem.l (sp)+,aO 
tst.l dO 
bne im_ 1a 
movem.l (sp)+,dO 

; AllocMem 

move.l #-1,d0 
rts 

im_ 1a: 

; Error 

move.l d0,20(a0) 

movem.l (sp)+,dO 
cmp.w#2,d0 
bne im_ 1 

move.l 20(a0),28(a0) 
im_1: 

move.l #$dff000,a6 

; ShadowMask-Adresse spei¬ 
chern 
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move.l ff$0dfc0000,$40(a6) 

move.l #-1,$44(a6) 

clr.l $62(a6) 

clr.w $66(a6) 

move.w 12(a0),d5 

move.w 10(a0),d6 

move.w d5,d0 

IsI.wffl.dO 

mulu d6,d0 

and.w ff$3ff,d6 

Isl.w #6, d6 

and.w ff$3f,d5 

add.wd6.dS 

move.w 14(a0),d1 

sub.wffl.dl 

move.l 20(a0),a1 

move.l 16(a0),a2 

initmask_loop: 
move.l a2,$50(a6) 

move.l a1,$54(a6) 
move.l a1,$4c(a6) 

move.w d5,$58(a6) 

initmask_wait: 
btst ff14,$2(a6) 
bne initmask_wait 
add.l d0,a2 

dbra dl.initmaskjoop 

clr.l dO 

rts 


BLTCONO: A + B = D 

First/Last Mask 

Modulowert von Quelle B 

Modulowert von Ziel D 

Breite in Words 

Höhe in Pixel 

Breite nach DO 

mal 2 = Breite in Bytes 

DO = ImageMapSize 

Blittersize errechnen 

D5 = breite in Words 

D6 = Höhe in Pixel 

D5 ist jetzt Blittersize 

Anzahl Planes nach Dl 

minus 1, wegen DBra 

AI = ShadowMask (Ziel D 

und Quelle B) 

; A2 = Image-Zeiger 

; Anfangsadresse von Quelle 
A 

; Anfangsadresse von Ziel D 
; Anfangsadresse von Quelle 
B = Ziel D 

; BLTSIZE und Blitteroperati- 
on starten 

; Bhtter fertig? 

; nä chste ImageMap 

; No Errors 
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;— ein Objekt auf Bildschirm printen 
;— AO = Objektargs 

;— po_bitmap = Zeiger auf Bitmap-Struktur 
;— Objekte nicht höher und/oder breiter als Bitmap 
;— Diese Routine kann PC-Relative assembliert werden 
PrintObjekt: 


move.l po bitmap(pc),a 1 
move.l ff$dff000,a2 

; Chip-Basisadresse SDFFOOO 

move.w (a1),d6 

Isr.w#1,d6 

; D6 = Screenbreite in Words 

move.w 2(a1),d7 

; D7 = Screenhöhe 

move.w 6(a0),d0 

; Ypos nach DO 

cmp.w 2(a1),d0 

; If YPos >= Screenhöhe then 

bge po_clipping 
move.w 10(a0),d1 

ende 

; Höhe des Objekts nach Dl 

neg.w dl 

; negativ machen 

cmp.w d1,dO 

; If YPos <= Dl then ende 

ble po_clipping 
move.w 8(a0),d0 

; X-Pos. nach DO 

move.w (a1),d1 

; Zeilenbreite in Bytes 

Isl.w#3,d1 

; mal 8 = Zeilenbreite in Pixel 

cmp.w dl,dO 

; If XPos >= Zeilenbreite then 

bge po_clipping 
move.w 12(a0),d1 

ende 

; Objektbreite nach Dl 

sub.wifl.dl 

; ein Word abziehen 

Isl.w#4,d1 

; mal 16 = Breite in Pixel 

neg.w dl 

; Objektbreite jetzt negativ 

cmp.w dl.dO 

; IfXPos <= Dl then ende 

ble po_clipping 



cmp.b #1,4(a0) ; BOBOff ? 

bne po_bobon 
po_bob_aus: 
bsr po_writehintergrund 

clr.b 5(a0) ; BOB nicht mehr init. 
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rts 

po_bobon: 
tstb 4(a0) 
bne po_bobon_xa 
bsr po_writehintergrund 
bsr po_readhintergrund 
bsr po_writeobjekt 

rts 

po_bobon_xa: 
cmp.b #2,4(a0) 
bne po_bobon_xb 
bsr po_writeobjekt 

rts 

po_bobon_xb: 
cmp.b #3,4(a0) 
bne po_bobon_xc 
bsr po_ writehintergrund 
rts 

po_bobon_xc: 
cmp.b #4,4(a0) 
bne po_bobon_end 
bsr po_readhintergrund 

po_bobon_end: 

rts 

po_clipping: 
tstb 4(a0) 
beq po_bob_aus 
cmp.b #1,4{a0) 
beq po_bob_aus 
cmp.b #3,4(a0) 
beq po_bob_aus 
rts 


; Objekt normal anschalten ? 


; Hintergrund speichern 
; Objekt in Hintergrund prin- 
ten 

; Ende. 

; Write BOB only 

; Hintergrund zurückschrei¬ 
ben 


; Write Hintergrund only 


; Read Hintergrund only 


; Objekt normal anschalten ? 
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Masken/Offset/Blittersize berechnen 
DO = Y, Dl = X Position 

Rückgabe: DO = Blitterhöhe, Dl = Bl itterbreite — 
; D2 = PositionOffset, D5 = Shiftwert 

; D4 = muß zum Bitmapoffset addiert werden 

po_parameter: 


tstwdO 
bpi po_para_1 
move.w 12(a0),d2 
Isl.w#1,d2 
move.w d0,d3 
neg.w d3 
mulu d3,d2 
add.w 10(a0),d0 
bra po_para_x 

po_para_ 1: 
move.w d7,d2 
sub.w d0,d2 
move.w d2,dO 
clr.l d2 

cmp.w 10(a0),d0 
bmi po_para_x 
move.w 10(a0),d0 

po_para_x: 

tst.w dl 
bpi po_para_2 
neg.wdl 
move.w d1,d4 
isr.wM,d1 
move.w 12(a0),d5 
sub.w d1,d5 
clr.l d3 

move.w d1,d3 
Isl.w#1,d3 
add.l d3,d2 
move.w d5, dl 


; Y positiv ? 

; wenn ja, dann verzweigen 
; Breite Objekt Words 
; in Bytes 


; plus Höhe Objekt 


; ScreenHöhe 
; minus y-pos 
; DO = ergebnis 

; minus Höhe 
; negativ ? 

; wenn positiv dann normale 


Height 

; DO = Blitterhöhe , D2 ; 

Offset 
; X positiv ? 

; wenn ja, dann verzweigen 
; X-pos jetzt positiv 
; x-pos nach D4 
; durch 16 teilen 
; Objektbreite nach D5 


D3 = X-Offset 
D2 = Position-Offset 
Dl = Bl itterbreite 


D2 = Y- 





; D5 = real Shiftwert 


and.w #15,d4 
clr.w d5 
tst.wd4 

beq po_para_44 
move.w #16,d5 
sub.w d4,d5 
subq.w #1,d4 
move.w #$ffff,d3 

po_para_shift: 

Isr.w#1,d3 

dbra d4,po_para_shift 
move.w d3,$44(a2) 
move.w d3,$46(a2) 
cmp.w #1,d1 
beq po_para_7 
move.w #$ffff,$46(a2) 

po_para_7: 

move.l#2,d4 

rts 

po_para_2: 
move.w d1,d5 
and.w #15,d5 
Isr.w#4,d1 
move.w d6,d4 
sub.w d1,d4 
move.w d4,d1 
cmp.w 12(a0),d1 
bmi po_para_3 
move.w 12(a0),d1 

po_para_44: 
move.l #- 1,$44(a2) 
clr.l d4 
rts 

po_para_3: 

tstwd5 

beq po_para_44 
move.w d5,d3 
subq.w #1,d3 


; FirstMask 


; LastMask 

; Bitmapoffset -2 Bytes 

; X-Pos ist positiv 
; X-pos nach D5 
; D5 = Shiftwert 
; X-Pos durch 16 
; Screenbreite nach D4 

; Dl = Blitterbreite 
; Ergebnis - Objektbreite 
; hiernach normal weiter 
; Blitterbreite 

; First/LastMask 
; Bitmapoffset + 0 Bytes 
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move.w #$ffff,d4 
po_para_shifta: 
Isl.w#1,d4 

dbra d3,po_para__shifta 
move.w d4,$44(a2) 
move.w d4,$46(a2) 
cmp.w #1,d1 
beq po_para_4 
move.w #$ffff,$44(a2') 
po_para_4: 
clr.l d4 
rts 


; FirstMask 
; Blitterbreite = 1 
; LastMask 

; Bitmapoffset + 0 Bytes 


;- Hintergrund wieder printen 

po_ writehintergrund: 
tstb 5(a0) 

bne po_ writehg_x 
rts 

po_writehg_x: 
move.w (aO),dO 
move.w 2(a0),d1 
bsr po_parameter 
move.l #-1,$44(a2) 
move.l #$09f00000,$40(a2) 
move.l 24(a0) f a3 
add.l d2,a3 
Iea8(a1),a4 
move.w d6,d5 
sub.w d1,d5 
Isl.w#1,d5 
move.w d5,$66(a2) 
move.w 12(a0),d5 
sub.w d1,d5 
Isl.wft1,d5 
move.w d5,$64(a2) 


; wurde ein Hintergrund 
schon gelesen ? 


; OldY 
; OldX 

; First/LastMask 
; BLTCONO/1 
; A3 = real Quelle A 


; ZModulo 


; AM o du Io 
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clr.l d3 
tstw 2 (aO) 

bmi po_writehg_nox 
move.w 2(a0),d3 
Isr.w #4,d3 
Isl.w#1,d3 
po_writehg_nox: 
tstw (aO) 

bmi po_writehg_noy 
move.w (a0),d4 
mulu d6,d4 
Isl.l #1,d4 
add.l d4,d3 
po_ writehg_ noy: 
move.w 12(a0),d4 
mulu 10(a0),d4 
Isl.l Ul,d4 
clr.w d5 

move.b 5(a1),d5 
subq.w U1,d5 
and.w #$3ff,d0 
lsl.wU6,dO 
and.w U$3f,dl 
add.wd0,d1 
po_ writehg_ loop: 
move.l a3,$50(a2) 
move.l (a4)+,a5 
add.l d3,a5 
move.l a5,$54(a2) 
move.w d1,$58(a2) 
po_ writehg_ wait: 
btst#14,$2(a2) 
bne po_writehg_wait 
add.l d4,a3 

dbra d5,po_writehg_loop 
rts 


; x-pos 
; X-Offset 


; Y-Offset 

; D3 = Bitmapoffset 


; D4 = Map-Size vom Objekt 


; D5 = Loop-z hier 
; Blittersize errechnen 
; Dl = Breite in Words 
; DO = Höhe in Pixel 
; Dl ist jetzt Blittersize 

; Quelle A 


; Ziel D 

; Blitter starten 

; Bit BBusy testen 
; wenn Null, dann Blitterende 
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;- Hintergrund speichern - 

po_readhintergrund: 

move.b #1,5(a0) ; Init = 1, Hintergrund schon 

mal gelesen 

move.w 6(a0),0(a0) ; Ypos nach OldYpos 

move.w 8(a0),2(a0) ; Xpos nach OldXpos 

move.w (aO),dO ; Y 

move.w 2(a0),dl ; X 

bsr po_parameter 

move.l #-1,$44(a2) ; First/LastMask 

move.l #$09f00000,$40(a2) ; BLTCONO/1 

move.l 24(a0),a3 ; A3 = Ziel D 

add.i d2,a3 

lea 8(a1),a4 

move.w d6,d5 

sub.w dl,dS 

Isl.w#1,d5 

move.w d5,$64(a2) ; AModulo 

move.w 12(a0),d5 
sub.w d1,d5 
isi.w#1,d5 

move.w d5,$66(a2) ; ZModulo 

clr.l d3 

tst.w2(a0) 

bmi po_readhg_nox 

move.w 2(a0),d3 ; x-pos 

Isr.w#4,d3 

Isl.w#1,d3 ; X-Offset 

po_readhg_nox: 
tst.w(aO) 

bmi po_readhg_noy 
move.w (a0),d4 
mulu d6,d4 
Isl.l F1,d4 
add.i d4,d3 
po_readhg_noy: 
move.w 12(a0),d4 
mulu 10(a0),d4 


; Y-Offset 

; D3 = Bitmapoffset 
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Isl.l#1,d4 
clr.w d5 

move.b 5(a1),d5 
subq.w ff 1,d5 
and.w #$3ff,d0 
Isl.w ff6, dO 
and.w ff$3f, dl 
add.wdO.dl 
po_readhg_ loop: 
move.l a3,$54(a2) 
move.l (a4)+,a5 
add.l d3,a5 
move.l a5,$50(a2) 
move.w d1,$58(a2) 
po readhg_wait: 
btst #14,$2(a2) 
bne po_readhg_wait 
add.l d4,a3 

dbra d5,po_readhg_!oop 
rts 


; D4 = Map-Size vom Objekt 


; D5 = Loop-z hier 
; Blittersize errechnen 
; Dl = Breite in Words 
; DO ss Höhe in Pixel 
; Dl ist jetzt Blittersize 

; Ziel D 


; Quelle A 
; Blitter starten 

; Bit BBusy testen 
; wenn Null, dann Blitterende 


Objekt Daten in Bitmap kopieren 
po_writeobjekt: 

move.w 6(a0),d0 ; 

move.w 8(a0),d1 ; 

bsr po_parameter 
Isl.w #8,d5 
Isl.w #4, dö 

move.w d5,$42(a2) ; 

add.wff$0tca,d5 

movem.l dö.-(sp) 

move.w d5,$40(a2) ; 

move.l 20(a0),a5 

add.l d2,a5 ; 


Y 

X 


korrekter Shiftwert 
BLTCON1 


BLTCONO 

A5 = Quelle A (real Shadow- 
Mask) 


move.l 16(a0),a3 

add.l d2,a3 ; A3 = Quelle B (real Image) 
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lea 8(a1),a4 
move.w d6,d5 
sub.w d1,d5 

Isl.w#1,d5 
move.w d5,$66(a2) 

; ZModulo 

move.w d5,$60(a2) 

; CModulo 

move.w 12(a0),d5 
sub.w d1,d5 

Isl.w#1,d5 
move.w dö,$64(a2) 

; AModulo 

move.w d5,$62(a2) 

; BModulo 

clr.l d3 
tst.w8(a0) 
bmi po_writeo_nox 
move.w 8(a0),d3 

; x-pos 

Isr.w #4,d3 

Isl.w#1,d3 

; X-Offset 

po_writeo_nox: 
tstw6(a0) 
bmi po_writeo_noy 
move.w 6(a0),d5 
mulu d6,d5 

Isl.l#1,d5 

; Y-Offset 

add.l d5,d3 
po_ writeo_noy: 
sub.l d4,d3 

; D3 = Bitmapoffset 

move.w 12(a0),d4 
mulu 10(a0),d4 

Isl.l #1,d4 

; D4 = Map-Size vom Objekt 

move.w 14(a0),d5 
subq.w#1,d5 

; 05 = Loop-zähler 

and.w #$3ff,d0 
and.w #$3f,dl 

Isl.w #6,dO 

; Dl = breite in Words 

add.wdO.dl 

; Dl ist jetzt Blittersize 

po_ writeojoop: 
move.l a5,$50(a2) 

; Quelle A (ShadowMask) 

move.l a3,$4c(a2) 

; Quelle B (Image) 
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move.l (a4)+,a6 
add.l d3,a6 

move.l a6,$48(a2) ; Quelle C (BitMap) 

move.l a6,$54(a2) ; Ziel D (BitMap) 

move.w d1,$58(a2) ; Blitter starten 


po writeo_wait: 
bist #14,$2(a2) 
bne po_ writeo_ wait 
add.l d4,a3 

dbra d5,po_writeo_loop 
movem.l (sp)+,d5 
move.w 14(a0),d0 
cmp.b 5(a1) f d0 
beq po_writeo_end 
sub.b 5(a1),d0 
neg.b dO 
subq.w#1,d0 
sub. w #$0400,dö 
move.w d5,$40(a2) 
clr.w $42 (a 2) 
clr.w $72(a2) 

po_ writeo_loop2: 
move.l a5,$50(a2) 
move.l (a4)+,a6 
add.l d3,a6 
move.l a6,$48(a2) 
move.l a6,$54(a2) 
move.w d1,$58(a2) 
po_ writeo_ wait2: 
btst #14,$2(a2) 
bne po_writeo_wait2 
dbra d0,po_writeo_loop2 
po_ writeo_end: 
rts 

po_bitmap: dc.l 0 


; Bit BBusy testen 
; wenn Null, dann Blitterende 


; BLTCONO wert holen 
; Depth BOB nach DO 
; = Anzahl Planes Screen ? 

; Wenn ja, dann Ende 
; Planes-Anzahl abziehen 
; Positiv machen 

; DMA-Kanal B = aus 
; BLTCONO 
; No Shift B 

; Clear Datenregister B (Fi¬ 
gur) 

; Quelle A (ShadowMask) 


; Quelle C (BitMap) 

; Ziel D (BitMap) 

; Blitter starten 

; Bit BBusy testen 
; wenn Null, dann Blitterende 
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Gibt einen Text auf dem Bildschirm aus, 
der mit einem Nullbyte endet 
Parameter: AO = Text, AI = RastPort, 

A6 = Graphics-Basis 

DO = X-Pos., Dl = Y-Position 

PrintText: 

clr. w d2 ; Zähler für Anzahl Zeichen 

move.l aO,a2 
ptjoop: 
tstb (a2)+ 
beq pt_loop_end 
add.w#1,d2 

cmp.w #100,d2 ; Max. 80 Zeichen 

bne ptjoop 
ptJoop_end: 

tst.w d2 ; Kein Text ? 

beq pt_end 

movem.l aO-a1/a6/d2,-(sp) ; Parameter retten 

jsr -240(a6) ; MOVE () - Position setzen 

movem.l (sp)+,aO-a 1/a6/d0 ; Parameter holen 

jsr -60(a6) ; TEXT () - Text printen 

pt_end: 
rts 


BitMap-Pointer in CopperList bertragen — 

AO = BitMap; AI = CopperPuffer; DO = Modus — 
InitCopperMap: 

move.w (aO),d1 ; Bytes pro Zeile nach Dl 

sub.w #40,dl ; minus 40 Bytes (320 Pixel) 

cmp.w #$8000,dO ; Modus = Hires ? 

bne icm_ 1 

sub.w#40,dl ; nochmal minus 40 Bytes 

(insgesamt -640 Pixel) 


icm_ 1: 

cmp.w #$04, dO 
bne icm 2 


; Modus = Interlace ? 
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sub.w #40,d1 
icm_2: 

move.w #$0108,(a1)+ 
move.w d1,(a1)+ 

move.w #$010a,(a1)+ 
move.w d1,(a1)+ 
move.b 5(a0),d1 
Isl.w#8,d1 
Isl.w#5,d1 
Isr.w#1,d1 
add. w #$0200,dl 
add.wd0,d1 
move.w #$0100,(a1)+ 
move.w dl,(a1)+ 
moveq #5,d0 
move.w #$00e0,d1 

add.l #8,a0 
icmjoop: 
move.w dl,(a1)+ 
move.w (a0)+,(a1)+ 
add. w #2, dl 
move.w dl,(a1)+ 
move.w (a0)+,(a1)+ 
add. w #2, dl 
dbra dO,icmjoop 
rts 


; auch minus 40 Bytes (ins- 
gesammt -640 Pixel) 

;B PLI MOD 

; Moduio-Wert ungerade Pla¬ 
nes 

; BPL2MOD 

; Moduio-Wert gerade Planes 
; Depth nach Dl 
; Korrekten 
; Depth-Wert 
; ermitteln 
; Color setzen 
; Modus setzen 
; BPLCONO 
; setzen 

; max. Tiefe minus 1 
; Hi-Word vom ersten Map- 
Pointer 

; Erster Pointer-Zeiger 

; Hi-Word vom Pointer 
; setzen 

; Lo-Word ermitteln 
; und 
; setzen 

; Hi-Word ermitteln 


; — ColorMap in CopperListe bertragen — 

AO — ColorTable; AI = CopperPuffer — 
initCoior: 

move.w #$180,dl ; erstes Farbregister 

move.w #31,dO ; Anzahl Farben 

icjoop: 

move.w d1,(a1)+ ; Farbregister in CopperList 
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move.w (a0)+,(a1)+ 

add.w #2, dl 
dbra dO,ic_loop 
rts 


; dann der Farbwert in Cop- 
perList 

; nächstes Farbregister 


BitMap-Struktur initialisieren und 
Speicher f r Maps reserverieren 


DO = Depth, Dl = Width, D2 
AO = BitMap 
InitBitMap: 
move.w dl,d4 
and.w#15,d4 
tst.wd4 
beq ibm_ 1 

move.l#-1,d0 

rts 

ibm_ 1: 

Isr.w#4,d1 

Isl.w#1,d1 

move.w d1,(a0) 

move.w d2,2(a0) 

move.w d0,4(a0) 
tstw d3 

bne ibm_2 

clr.l dO 
rts 

ibm_2: 

move.w d0,d4 
sub.w#1,d4 
lea 8(a0),a1 


Height, D3 = Memory, 


; Breite nach D4 
; Rest ermitteln 
; Rest vorhanden ? 

; Wenn nicht, dann weiter - 
sonst Error 

; Error: Breite nicht durch 16 
teilbar 


; Breite durch 16 teilen 
; mal 2 = Anzahl Bytes einer 
Zeile 

; und in BitMap-Struktur 
speichern 

; Höhe in BitMap-Struktur 
speichern 

; Anzahl Planes speichern 
; Muß Speicher fr BitMaps re¬ 
serviert werden ? 

; Wenn nicht, dann Ende, 
sonst weiter 
; No Errors 
; Ende 

; Depth nach D4 
; minus 1 
; BitMap nach al 
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ibm_ clear_ loop: 
clr.l (a1)+ 

dbra d4,ibm_clear_loop 
mulu d2,d1 

move.w d0,d2 
move.l d1,d0 
move.l #$10002, dl 
sub.w #1,d2 

add.l #8,a0 
move.l a0,a2 
ibmjoop: 
move.l #$4,a6 
move.l (a6),a6 
movem.l d0-d2/a0-a2,-(sp) 
jsr-198(a6) 
tst.l dO 

bne ibm_l1 

movem.l (sp)+,d0-d2/a0-a2 
ibmjreejoop: 
move.l (a2),a1 
cmp.l#0,a1 
bne ibm_l2 
move.l #-2,d0 
rts 

ibm 12: 
clr.l (a2)+ 

movem.l d0/a2,-(sp) 
move.l #$4,a6 
move.l (a6),a6 
jsr -210(a6) 
movem.l (sp)+,d0/a2 
bra ibmjreejoop 
ibmjl: 
move.l d0,d5 

movem.l (sp)+,d0-d2/a0-a2 


; Pointer-Zeiger 
; löschen 

; BytePerRow x Höhe = Size 
von einer Map 
; D2 = Anzahl Planes 
; DO = ByteSize 
; Dl = CHIP + FreeMem 
; Anzahl Planes minus 1, we¬ 
gen DBRA 

; Anfang BitMap-Zeiger 
; auch nach A2 


; AllocMem 

; konnte Speicher reserviert 
werden ? 

; Wenn ja, dann weiter 


; Zeiger auf BitMap holen 
; Null ? 

; wenn ja, dann ende 
; Error 
; Ende 


; FreeMem 


; Zeiger auf BitMap nach D5 
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move.l dS,(aO)+ 
dbra d2,ibmJoop 
clr.l dO 
rts 

Speicher der Maps wieder freigeben 
in einer BitMap-Struktur 
AO = BitMap 
ClearBitMap: 
clr.wdl 

move.b 5(a0),d1 ; Depth nach Dl 

sub.w#1,d1 

move.w (aO),dO ; BytePerRow 

mulu 2(a0),d0 ; mal Höhe = MapSize 

add.i #8,a0 
move.l #$4,a6 
move.l (a6),a6 
cbmjoop: 

move.l (aO),a1 ; Map-Pointer 

cmp.i#0,a1 

beq cbmll 

clr.l (aO)+ 

movem.i d0-d1/a0/a6,-(sp) 
jsr -210(a6) ; FreeMem 

movem.i (Sp)+,d0-d1/a0/a6 
cbmjl: 

dbra dl,cbmjoop 
rts 

Parameter — 

Objektdaten von BOB 1 
ObjektArgsl: 
dc.w 0,0 
dc.b 0,0 
dc.w 100,20 
dc.w 8,3,2 


OLDY,OLDX 

BOBOFF = Normal, Init = 0 
YPos,XPos 

Höhe = 8, Wordbreite = 3, 
Tiefe = 2 
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dc.l imagel ; Adresse der BOB-Daten 

dc.l 0,0,0 ; ShadowMask/SaveBuf- 

fer/CollMask = Null 

imagel: ; Imagedaten vom BOB 

dc.w $ffff,$ffff,$0,$ffff,$ffff,$0,$ffff,$ffff,$0 t $ffff,$ffff,$0 
dc.w $ffff,$ffff,$0,$ffff,$ffff,$0,$ffff,$ffff,$0,$ffff,$ffff,$0 
dc.w $ffff,$ffff,$0,$ffff,$ffff,$0.$ffff,$ffff,$0,$ffff,$ffff,$0 
dc.w $ffff,$ffff,$0,$ffff,$ffff,$0,$ffff,$ffff,$0,$ffff,$ffff,$0 


Objektdaten von BOB 2— 

ObjektArgs2: 

dc.w 0,0 ; OLDY,OLDX 

dc.b 0,0 ; BOBOFF = Normal, Init = 0 

dc.w 10,200 ; YPos,XPos 

dc.w 8,3,2 ; Höhe = 8, Wordbreite = 3, 

Tiefe = 2 

dc.l image2 ; Adresse der BOB-Daten 

dc.l 0,0,0 ; ShadowMask/SaveBuf- 

fer/CollMask = Null 

image2: ; Imagedaten vom BOB 

dc.w$ffff,$ffff,$0,$ffff,$ffff,$0,$ffff,$ffff,$0,$ffff,$ffff,$0 

dc.w $ffff,$ffff,$0,$ffff,$ffff,$0,$ffff,$ffff,$0,$ffff,$ffff,$0 
dc.w 

$ 0000 ,$ 0000 ,$ 0 ,$ 0000 ,$ 0000 ,$ 0 ,$ 0000 ,$ 0000 ,$ 0 ,$ 0000 ,$ 0000,$0 

dc.w 

$ 0000 ,$ 0000 ,$ 0 ,$ 0000 ,$ 0000 ,$ 0 ,$ 0000 ,$ 0000 ,$ 0 ,$ 0000 ,$ 0000,$0 


Objektdaten von BOB 3— 
ObjektArgs3: 
dc.w 0,0 
dc.b 0,0 
dc.w 200,80 
dc.w 8,3,2 

dc.l image3 
dc.l 0,0,0 

image3: 


; OLDY,OLDX 

; BOBOFF = Normal, Init = 0 
; YPos,XPos 

; Höhe - 8, Wordbreite = 3, 
Tiefe = 2 

; Adresse der BOB-Daten 
; ShadowMask/SaveBuf- 
fer/CollMask = Null 
; Imagedaten vom BOB 
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dc.w 

$ 0000 , $ 0000 , $ 0 , $ 0000 , $ 0000 , $ 0 , $ 0000 , $ 0000 , $ 0 , $ 0000 , $ 0000 , $0 

dc.w 

$ 0000 , $ 0000 , $ 0 , $ 0000 , $ 0000 , $ 0 , $ 0000 , $ 0000 , $ 0 , $ 0000 , $ 0000 , $0 
dc.w $ffff,$ffff,$ 0 ,$ffff,$ffff,$ 0 ,$ffff,$ffff,$ 0 ,$ffff,$ffff ,$0 
dc.w $ffff,$ffff,$0,$ffff,$ffff,$0,$ffff,$ffff,$0,$ffff,$ffff,$0 

’bobtabelle: blk.l20,0 ; Platz fr4 Objekte 

/ 

oldirqebene: dc.l 0 
intena_buf: dc.w 0 


irq_change: dc.w 0 


speedl: dc.w 1,1 
speed2: dc.w 2,2 
speed3: dc.w 2,1 


; Y/X-Speed von Objekt 1 
; Y/X-Speed von Objekt 2 
; Y/X-Speed von Objekt 3 


gfxbase: dc.l 0 ; graphics.basis 

gfxname: dc.b "graphics.library",0; Libraryname 


bitmap_tabelle: blk.l 3,0 

bitmapA: blk.b 40,0 ; BitMap-Struktur A 

bitmapB: blk.b 40,0 ; BitMap-Struktur B 

bitmapC: blk.b 40,0 ; BitMap-Struktur C 

rastport: blk.b 100,0 ; RastPort-Struktur 

colortable: 

dc.w 0,1000,200,600,500,1040,2340,1234,4000,12,456,876 
blk. w 20,100 ; 32 Farben 

spritedatas: blk.l 3,0 

copperlist: ; ab hier Copperliste 

dc.w $8e,$3081 ; DIWSTRT 

de. w $90,$30c 1 ; DIWSTOP 

dc.w $92,$38 ; DDFSTRT 

dc.w $94,$d0 ; DDFSTOP 

colorpuffer: 

blk.b 128,0 ; Farbregister 

copperpuffer: 
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blk.b 60,0 
dc.w $ff01,$fff4 
dc.w $ffdf,$fffe 
dc.w $0101,$fffe 
dc.w $3001, $fffe 
dc.w $009c,$8010 
dc.l Sfffffffe 
demotext: 

dc.b "DB-BOBs mit Collision!",0 

even 

END 

Listingende — 


Screen-Customregister 
Weit 255 

Wait maximale Pos. 
Wait 1 (=256) 
max. $3801 
CopperlRQ ausiesen 
Copperlistende 


7.12 Animierte BOBs 

Unter Animation versteht man die Bewegung eines sich selbst in 
unterschiedlichen Bewegungsphasen befindlichen Objektes auf dem 
Bildschirm. Die Animation kann auf verschiedene Arten ablaufen. 
Einmal zeichnet man sich alle einzelnen Bewegungsphasen (Se- 
quencen) und läßt diese nacheinander ablaufen. Oder es werden 
nur die Positionsvariable geändert, also das Objekt bewegt. Die 
letzte Möglichkeit wäre, beide Systeme miteinander zu verbinden. 

Das einfache Ändern der Positionen haben wir ja bereits im vor¬ 
angegangen Abschnitt programmiert und dürfte deswegen wohl 
kein Hindernis darstellen. Möchte man jetzt verschiedene Sequen- 
cen ablaufen lassen, damit zum Beispiel der Eindruck entstünde, 
eine Kugel würde sich drehen, so kann dies wie folgt realisiert wer¬ 
den: 

Entweder man legt sich für jede einzelne Sequence eine Objekt- 
Args-Atruktur an und aktiviert diese im richtigen Augenblick für die 
vorangegangene. Oder es wird für alle Sequencen eines Objektes 
nur eine ObjektArgs- Struktur angelegt und im richtigen Augenblick 
wird nur die Image-Adresse entsprechend geändert. Allerdings 
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müssen dann, je nachdem welche Double-Buffering Methode ange¬ 
wendet wird, alle Sequencen die gleichen Ausmaße besitzen. Wir 
wollen hier diesmal aber keine Beispielroutinen vorstellen, die uns 
die Animation abnimmt, sondern diesmal sind sie selbst gefragt. 
Aber eine kleine Hilfe soll ihnen nicht verwert bleiben: 

Am besten sie entwerfen eine Animations-Struktur, die alle nötigen 
Parameter für die Animation enthält, wie zum Beipiel: 


- Animationsgeschwindigkeit 

- Bewegungsgeschwindigkeit 

- Pausenlänge oder Ausschalten nach Animationsablauf 

- Bewegungsrichtung 

- Anzahl der Sequencen (ObjektArgs-Strukturen) 

- Adressen der einzelnen Sequencen (ObjektArgs-Strukturen) 

- usw. 

Diese Struktur entwerfen sie für jedes Objekt. Dann fassen sie 
alle Animations-Strukturen in einer Tabelle zusammen (siehe 
BOB-Tabelle). Jetzt brauchen sie nur noch eine Routine zu pro¬ 
grammieren, der sie die Adresse der Animtions-Tabelle übergeben 
und diese verwaltet dann die Parameter entsprechend. Diese Rou¬ 
tine müssen sie natürlich regelmäßig aufrufen. 

Damit die Objekte bzw. entsprechenden Sequencen auch er¬ 
scheinen, müssen sie noch eine Routine programmieren, die aus 
der Animations-Tabelle eine fertige BOB-Tabelle erstellt. Diese 
können sie dann, wie gewohnt verwalten. 
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Das Schlimmste, was sie wohl machen könnten, ist einfach 
"drauflos" zu programmieren. Denn irgend wann kommt man an ei¬ 
nen Punkt, wo das Spiel so komplex wird, das es sich nicht mehr 
überblicken läßt. 

Nehmen wir mal an, sie wollen ein Ballerspiel programmieren. 
Dazu müßten sie sich die ganzen Startkoordinaten, Namen der Ob¬ 
jekte, alle dazugehörigen Strukturen, Kollisionsbedingungen usw. 
merken. Das wird mit der Zeit viel zu viel. Außerdem sollte ein Au¬ 
ßenstehender sich auch in ihrem Listing zurechfinden; also immer 
alles gut dokumentieren. Das ist zwar eine Menge Arbeit, sie 
rechtfertigt sich aber, sobald sich der erste Programmierfehler ein¬ 
nistet. 

Zunächst sollte festgelegt werden, um was für eine Art von Spiel 
es sich handeln soll (Abenteuer, Action, Strategie, Sport usw.). 
Danach entwickeln sie eine Programm- bzw. Spielidee, die auch 
machbar ist. Das heißt, eine die sich mit ihren Programmierkennt¬ 
nissen realisiern läßt. Als dritten Schritt fertigen sie eine Inhaltsan¬ 
gabe an, mit der sie auch weitestgehend alle zu benötigen Parame¬ 
ter auflisten. Am besten sie stellen sich eine Reihe von Fragen, die 
ihnen so einfallen, wie zum Beispiel: 

- Was ist die Aufgabe des Spielers (Spielsinn ?) 

- Wie sehen die Feinde, der Flintergrund und die Spielfigur aus ? 

- Wieviel Leben besitzt man ? 

- Wann verliert man einen Spieler bzw. ein Leben ? 

- Wie kann man den Gefahren ausweichen bzw. sich davor schüt¬ 
zen ? 
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- Wie gelangt man in den nächsten Level ? 

- Wieviele Level gibt es ? 

- Wie und in wieviel Richtungen läßt sich die Figur lenken ? 

- Kann man Gegenstände bzw. Hilfsmittel einsammeln ? 

- Wie kann man sich verteidigen ? 

- Wird die Handlung im Laufe des Spieles schwerer ? 

- Wann ist das Spiel beendet ? 

- usw. 

Nach der Inhaltsangabe wird jetzt eine Liste aller benötigten Hin¬ 
tergründe und Figuren aufgestellt. Da der eigentliche Spielablauf 
jetzt soweit klar sein sollte, wird danach der Programmablauf skiz¬ 
ziert bzw. beschrieben. Welche Routinen programmiert werden 
müssen und wie diese Zusammenarbeiten. Dabei sollten man auch 
gleich den Speicher einteilen (Programm, Grafik und Sound). 

Die eigentliche Arbeit beginnt jetzt mit der Programmierung der 
einzelnen Routinen, dem Zeichnen der Figuren und Hintergründe 
und dem Erstellen der Animation. 

Um alle diese Schritte zu bewältigen, benötigt man mindestens 
zwei bis drei Programme: 

1. Assembler, mit dem man programmiert 

2. Zeichenprogram (zum Beispiel DeluxePaint) 

3. evtl, ein Animationsprogramm (am besten ein eigenes) 

Das folgende Schaubbild verdeutlicht nocheinmal alle Schritte in 
Form einer Kurzbeschreibung: 

Von der Idee zum fertigen Spiel: 

1. Art des Spiels festlegen 

2. Programm bzw. Spielidee entwickeln, die auch machbar ist. 

3. Kurze Inhaltsangabe (Fragen beantworten) 

4. Auflistung aller benötigten Figuren und Hintergründe 

5. Kurz den Programmablauf skizzieren bzw. beschreiben 

6. Sound bzw. Titelmusik wählen 
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7. Skizze der zu programmierenden Routinen erstellen (Wie sie 
zusammen arbeiten) und Speicher einteilen 

8. Die einzelnen Routinen programmieren 

9. Figuren bzw. Hintergründe zeichnen 

10. Animation erstellen (eftl. mit eigenem Animator), die dann für 
jede Figur fertig abgespeichert wird. 


8.1 Konzept eines Beispielprogrammes 

Wir werden in diesem Buch kein Spiel programmieren, da dies 
viel zu platzraubend ist. Stattdessen werden wir ein Beispielkon¬ 
zept für ein Ballerspiel (Weltraum) entwerfen. 

Das Buch soll ihnen ja nur die nötigen Grundkenntnisse vermit¬ 
teln, die zur Spieleprogrammierung erforderlich sind. Das eigentli¬ 
che Spiel müssen sie dann schon selbst erstellen. Die wichtigsten 
Routinen sind ja im Buch enthalten. 

Beispielkonzept eines Weltraumspiels: 

1. Art des Spiels festlegen: 

Es ist ein Action-Weltraum-Ballerspiel ohne Strategieteil. 

2. Programm- bzw. Spielidee entwickeln, die auch machbar ist: 

Der Spieler fliegt mit seinem Raumschiff immer über den selben 
Hintergrund (Sterne, Planeten, Sonnensysteme, Milchstraßen). 
Oben bzw. unten am Bildschirmrand scrollt in jedem Level eine an¬ 
dere Fassade (Felsstücke, Frackteile...). Dabei muß man versu¬ 
chen, entgegenkommenden Hindernissen auszuweichen oder sie 
zu vernichten. Einige Hindernisse fliegen ununterbrochen über die 
Spielfläche und andere befinden sich solange darauf, bis man sie 
zerstört hat. Am Ende eines jeden Levels folgt eine Bonusrunde (zu 
jedem Level eine andere Bonusrunde). Jeder Level wird nachgela¬ 
den. 
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3. Kurze Inhaltsangabe - Fragen beantworten 

a) Sinn: So viele Punkte wie möglich zu erreichen. Eintragung in 
Top-Ten Hi-Scoreliste möglich, welche auch abgespeichert wird 

b) Aussehen: Auf Extra-Blättern skizzieren 

c) Lebenanzahl wird durch einen Energiestreifen angezeigt. Wird 
der Spieler getroffen, so wird der Streifen ein Stück kleiner 
(Feind- bzw. Fassadenberührung). Jedoch muß der Level nicht 
wieder von vorne begonnen werden. Wenn der Streifen aufge¬ 
löst ist, so ist das Spiel beendet. 

d) Alle 10000 Punkte wird der Streifen ein wenig größer 

e) Schutz: In dem man die Feinde mit verschiedenen Waffen ab¬ 
schießt. 

f) Wenn man sich tapfer durch einen Level geschlagen hat, gelangt 
man automatisch in den nächsten (mit Bonusrunde). 

g) Es gibt eine Diskette voll mit Levels, die jeweils nachgeladen 
werden. 

h) Das Raumschiff läßt sich mit dem Joystick in alle acht Richtun¬ 
gen lenken 

i) Verteidigung: Am unteren Bildschirmrand werden mehrere Waf¬ 
fen angezeigt, die mit den Funktionstasten anwählbar sind. Jede 
Waffe hat eine andere Auswirkung. Mit einen Farbstreifen wird 
die noch vorhandene Energie der dazugehörigen Waffe ange¬ 
zeigt. Wenn die Energie einer Waffe verbraucht ist, dauert es ei¬ 
ne Zeit, bis sie sich wieder aufgeladen hat. 


236 



Konzeptablauf eines Spieles 


Kapitel 8 


4. Auflistung aller benötigten Figuren + Hintergründe 

Eine Tabelle anlegen in der die Hindernisart, der Bewegungsab¬ 
lauf, die Anzahl der Objekte eingetragen wird. 

Alle anderen Schritte sind jetzt von ihnen abhängig. Für den Pro¬ 
grammablauf hilft es, wenn man sich ein paar Schablonen anfertigt 
(für Collisions-, Animations-, Sound- usw. Routinen). Diese 
braucht man sich dann nur noch zurechtlegen und fast fertig ist der 
Programmablauf. 
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BitMap-Struktur: (Länge = 40 Bytes) 
Offset Tvd Bezeichnung _ Funktion 


00 

Word 

BytePerRow 

02 

Word 

Rows 

04 

Byte 

Flags 

05 

Byte 

Depth 

06 

Word 

Pad 

08 

Long 

PlanePtrl 

12 

Long 

PlanePtr2 

16 

Long 

PlanePtr3 

20 

Long 

PlanePtr4 

24 

Long 

PlanePtrö 

28 

Long 

PlanePtrö 

32 

Long 

PlanePtr7 

36 

Long 

PlanePtrö 

40 

END 



Anzahl Bytes einer Zeile 

Anzahl Zeilen der Bitmap 

System-Flags 

Anzahl der Bitmaps (Tiefe) 

unbenutzt 

Adresse der 1. Bitmap 
Adresse der 2. Bitmap 
Adresse der 3. Bitmap 
Adresse der 4. Bitmap 
Adresse der 5. Bitmap 
Adresse der 6. Bitmap 
Adresse der 7. Bitmap 
Adresse der 8. Bitmap 
Ende der BitMap-Struktur 
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‘RastPort‘-Struktur (Länge = 100 Bytes) 

Offset Tvp Bezeichnung _BfiSgllEfiifaunfl 


000 

Long 

Layer 

004 

Long 

BitMap 

008 

Long 

AreaPtrn 

012 

Long 

TmpRas 

016 

Long 

Area Info 

020 

Long 

Gelslnfo 

024 

Byte 

Mask 

025 

Byte 

FgPen 

026 

Byte 

BgPen 

027 

Byte 

AOIPen 

028 

Byte 

DrawMode 


029 

Byte 

AreaPtSz 

030 

Byte 

LinePatCNT 

031 

Byte 

Dummy 

032 

Word 

Flags 

034 

Word 

LinePtrn 

036 

Word 

CP X 

038 

Word 

CP_Y 

040 

Byte 

Minterms(8) 

048 

Word 

PenWidth 

050 

Word 

PenHeight 

052 

Long 

TextFont 

056 

Byte 

AlgoStyle 

057 

Byte 

TxFIags 


Zeiger auf ‘Layer‘-Struktur 
Zeiger auf ‘BitMap'-Struktur 
Zeiger auf das AreaFill-Muster 
Zeiger auf ‘TmpRas'-Struktur 
Zeiger auf ‘Arealnfo'-Struktur 
Zeiger auf ‘Gelslnfo'-Struktur 
Schreibmaske (Bitmapmaske) 
Farbregisternummer für Vor¬ 
dergrundfarbe 

Farbregisternummer der Hin¬ 
tergrundfarbe 

Farbregisternummer der 

AreaFill-Outlinefarbe 

ZeichenModi 

(0=Jaml, 1=Jam2, 2=Com- 
plement, 3=lnvers) für Routine 
‘SetDrMd ()‘ 

Höhe des AreaFill-Musters 

(2 A n Words)) 

unbenutzt 

Line Draw Pattern Preshift 
verschiedene Kontrollbits 
(FirstDot etc.) 

16 Bits für Linienmuster 
x-Position des Grafikcursors 
y-Position des Grafikcursors 
8 x 1 Byte für Minterms 
(Funktion unbekannt) 
Cursorbreite 
Cursorhöhe 

Zeiger auf ‘TextFont'-Struktur 
Zeichensatzmodus (Style- 
Flag) 

textspezifische Flags 
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058 

Word 

TxHeight 

060 

Word 

TxWidth 

062 

Word 

TxBaseLine 

064 

Word 

TxSpacing 

066 

Long 

RP-User 

070 

Word 


084 

Long 


092 

Byte 


100 

End 



Höhe des Zeichensatzes 
durchschnittliche Zeichenbrei¬ 
te 

Texthöhe ohne Unterlängen 
Zeichenabstand 

Zeiger auf evtuelle Userdaten 
(unwichtig!) 

7 Words reserviert 
2 Longs reserviert 

8 Bytes reserviert 
Ende der Datenstruktur 


SoundTable -Struktur: (Länge = 16 Bytes) 


L’ilKlAÜ 

1 k'i 




00 

Long 

ParameterOPtr 

Zeiger auf 
von Kanal 0 

Parameterstruktur 

04 

Long 

Parameterl Ptr 

Zeiger auf 
von Kanal 1 

Parameterstruktur 

08 

Long 

Parameter2Ptr 

Zeiger auf 
von Kanal 2 

Parameterstruktur 

12 

Long 

Parameter3Ptr 

Zeiger auf 
von Kanal 3 

Parameterstruktur 

16 

END 


Ende der SoundTable-Struktur 

Die Zahl 

hinter 

Parameter gibt den 

Soundkanal 

an, über dem der 


Sample abgespielt wird. Soll ein Kanal nicht benutzt werden, muß 
das Langword (Long) an der entsprechenden Stelle aut Null gesetzt 
werden. 
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ParameterXPtr -Struktur: (Länge = 12 Bytes) 
Offset Typ _ Bezeichnung _ Funiltifln- 


00 

Long 

SampleData 

04 

Long 

Samplelänge 

08 

Word 

Periodendauer 

10 

Word 

Volume 

12 

END 



Anfangsadresse der Sample- 
daten 

Anzahl Bytes der Sampleda- 
ten 

Abtastrate (Tonhöhe) vom 
Sample 

Lautstärke vom Sample (0 bis 
64) 

Ende der ParameterXPtr- 
Struktur 


BlitterArgs -Struktur: (Länge = 22 Bytes) 


Offset Tvp Bezeichnung _ße?<?hreibung 


amam 

00 

-LUC- 

Long 

Quelle 

Anfangsadresse des Quellda¬ 
tenbereichs, welcher verscho¬ 
ben werden soll. 

04 

Long 

Ziel 

Anfangsadresse des Zielbe¬ 
reichs, zu dem die Daten, auf 
die Quelle zeigt, hinverscho¬ 
ben werden sollen. 

08 

Word 

QModulo 

Modulowert der Quelle in 
Bytes 

10 

Word 

ZModulo 

Modulowert des Ziels in Bytes 

12 

Word 

WBreite 

Breite der Grafik, welche ver¬ 
schoben werden soll, in 
Words. 

14 

Word 

Höhe 

Höhe der Grafik in Zeilen 
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16 

Byte 

Art 

17 

Byte 

QShift 


18 

Word 

FirstMask 

20 

Word 

LastMask 

22 

END 



Art des Datentransfers: 

1 = nur gesetzte Bits werden 
kopiert 

0 = alle Bits werden kopiert 
Anzahl Punkte die der Quell¬ 
datenbereich vor der Ausgabe 
nach rechts geschoben wer¬ 
den soll. Werte zwischen 0 
und 15 sind erlaubt, 
erste Maske der Quelle (16 
Bits) 

letzte Maske der Quelle (16 
Bits) 

Ende der BlitterArgs-Struktur 


Objekt Args -Struktur: (Länge = 32 Bytes) 


RTJrffB 

Tvd 





00 

Word 

OldY 

alte Y-Position 

(Intern 

für 




Routine) 



02 

Word 

OldX 

alte X-Position 

(Intern 

für 




Routine) 



04 

Byte 

BOBOff 

Wert, Funktion: 




0: Normal (führt Schritte 3/4/2 


aus) 

1: BOB wird ausgeschaltet 
(Schritt 3) 

2: Schreibe nur BOB-Daten in 
BitMap 

3: Hintergrunddaten zurück¬ 
schreiben 

4: Hintergrunddaten lesen 

05 Byte Init Variable für Routine 
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06 

Word 

YPos 

08 

Word 

XPos 

10 

Word 

Height 

12 

Word 

WordWidth 

14 

Word 

Depth 

16 

Long 

Image 

20 

Long 

ShadowMask 

24 

Long 

SaveBuffer 

28 

Long 

CollMask 

32 


END 


Vertikale Position vom Objekt 
Horizontale Position vom Ob¬ 
jekt 

Höhe vom Objekt in Zeilen 
Breite vom Objekt in Words 
Anzahl Bitmaps (Planes) vom 
Objekt 

Zeiger aut Grafikdaten vom 
Objekt 

Zeiger auf Schattenmaske 
(Wichtig) 

Zeiger auf Hintergrundpuffer 
Zeiger auf Collisionsmaske 
Ende der ObjektArgs-Struktur 


BOB-Tabelle: (Länge mindestens 6 Bytes) 


WikT-i« 

Tvd 



00 

Word 

Count 

Anzahl ObjektArgs-Strukturen 

02 

Long 

ObjektArgsO 

Zeiger auf ObjektArgs-Struk¬ 
tur von BOB 0 

06 

Long 

ObjektArgsl 

Zeiger auf ObjektArgs-Struk¬ 
tur von BOB 1 


so oft wie in Count angegeben ist. 

In Count wird angegeben, wieviel ObjektArgs-Strukturen die 
BOB-Tabelle enthält. Ab Offset zwei stehen die Anfangsadressen 
der ObjektArgs-Strukturen. Dabei besitzt das zuletzt eingetragene 
Objekt die höchste Priorität, verdeckt alle dahinterliegenden Objek¬ 
te. 
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Aufbau der BOB-Headerdatei: 

Offset_Iyß_Bezeichnung_ Beschreibung 


00 

Long 

TBOB 

04 

Long 

V1.0 

08 

Long 

Länge 

12 

Long 

HEAD 

16 

Word 

Höhe 

18 

Word 

WordBreite 

20 

Word 

Breite 

22 

Word 

Tiefe 

24 

Word 

Frei 

26 

Word 

YPos 

28 

Word 

XPos 

30 

Word 

Frei 

32 

Long 

BODY 

36 

Long 

Grafiklänge 

40 

Byte 



Kennzeichnung der Headerda¬ 
tei 

T ransformerversion 

Länge der gesammten BOB- 

Datei 

4-Byte Kennzeichnung 
Höhe des BOBs in Zeilen 
Breite des BOBs in Words (1 
Word = 16 Bit) 

Breite des BOBs in Pixeln 
Anzahl Bitmaps des BOBs 
unwichtig 

Y-Position vom BOB 
X-Position vom BOB 
unwichtig 

Kennzeichnung der Imageda¬ 
ten 

Länge der eigentlichen Grafik¬ 
daten 

ab hier liegen die eigenlichen 
Grafikdaten 
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Routinenliste: 

Disable () 

Enable () 

AllocMem (Größe,Code) (DO,Dl) 

FreeMem (Adresse,Größe) (AI ,D0) 

AvailMem (Code) (Dl) 

AllocAbs (Größe,Adresse) (DO,AI) 

Open (Filename,Modus) (D1,D2) 

Read (Fileadresse,Speicher,Länge) (D1,D2,D3) 

Close (Fileadresse) (Dl) 

InitBitMap (Tiefe,Breite,Höhe,Bedingung,BitMap) (D0-D3.A0) 
ClearBitMap (BitMap) (AO) 

PrintlffPic (BitMap,IffPic.ColorTable) (A0-A2) 

GetBackMask (ObjektArgs,BitMap (A0.A1) 

FreeBackMask (ObjektArgs) (AI) 

InitRastPort (RastPort) (AI) 

Text (RastPort.Text,Anzahl) (A1,A0,D0) 

TextLength (RastPort,Text,Anzahl) (A1,A0,D0) 

Move (RastPort,X,Y) (A1.D0.D1) 

PrintText (Text,RastPort,Grafikbasis,X,Y) (A0,A1,A6,D0,D1) 
FillBitMap (Muster,BitMap (DO,AI) 

InitColor (ColorTable.Colorpuffer) (A0,A1) 

InitCopperMap (BitMap,Copperpuffer,Modus) (A0,A1,D0) 
PlaySample (Soundtabelle) (AO) 

CopyGrafik (BlitterArgs) (AO) 

CopyBitMap (QuellBitMap.ZielBitMap) (A0,A1) 

PrintObjekt (ObjektArgs,BitMap) (AO,po_bitmap) 
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InitMask (ObjektArgs,Bedingung) (A0,D0) 

GetSaveBuffer (ObjektArgs,BitMap) (A0,A1) 

FreeMask (ObjektArgs) (AO) 

FreeSaveBuffer (ObjektArgs,BitMap) (AO,AI) 
WriteBackgroundsOnly (BOB-Tabelle) (printbob_tabelle) 
ReadBackgroundsOnly (BOB-Tabelle) (printbobJabelle) 
WriteBOBsOnly (BOB-Tabelle) (printbob Jabelle) 
Collision (ObjektArgsl ,ObjektArgs2) (A0,A1) 


Library: exec.library 

Routine: Disable () 

Offset: -120 =-$78 

Parameter: keine 

Erklärung: Diese Routine schaltet alle Interrupts aus. 


Library: exec.library 

Routine: Enable () 

Offset: -126 = -$7e 

Parameter: keine 

Erklärung: Diese Routine schaltet alle Interrupts die mit der Rou¬ 
tine Disable () ausgeschaltet wurden, wieder ein. 


Routine: AllocMem (DO,Dl) (Größe,Code) 

Library: exec.library 

Offset: -198 = -$c6 

Parameter: DO = Gibt die Größe des Speichers an der reserviert 
werden soll. 

Dl = Bedingungs-Code um was für eine Art von Spei¬ 
cher es sich handeln soll (siehe oben). 

Rückgabe: in DO = Adresse des reservierten Speicherbereichs. 

Wenn eine Null zurückgegeben wird, konnte der Spei¬ 
cher nicht reserviert werden. 

Erklärung: Diese Routine reserviert einen unbestimmten Spei¬ 
cherbereich von angegebener Größe und Bedingung. 
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Routine: FreeMem (AI,DO) (Adresse,Größe) 

Library: exec.library 

Offset: -210 = -$d2 

Parameter: AI = Adresse des Speicherblocks welcher freigegeben 
werden soll. 

DO = Gibt die Größe des Speichers an, den man frei¬ 
geben möchte 

Erklärung: Diese Routine gibt den Speicherbereich wieder frei, 
welcher zuvor mit der Routine AllocMem () reserviert 
worden ist. 


Routine: AvailMem (Dl) (Code) 

Library: exec.library 

Offset: -216 = -$d8 

Parameter: Dl = Bedingungs-Code des Speichers, welcher unter¬ 
sucht werden soll. 

Rückgabe: in DO = Größe des Speichers, der noch zur Verfügung 
steht. 

Erklärung: Diese Routine gibt die Größe des Speichers an, der 
noch zur Verfügung steht, bezogen auf die Bedingung. 


Routine: AllocAbs (DO,AI) (Größe,Adresse) 

Library: exec.library 

Offset: -204 = -$cc 

Parameter: DO = Größe des Speicherblocks der reserviert werden 
soll 

AI = Anfangsadresse des Speicherblocks, welcher re¬ 
serviert werden soll. 

Rückgabe: in DO = Die Adresse, welcher vorher übergeben wurde 
oder eine Null, wenn der Speicherblock nicht zugewie¬ 
sen werden konnte. 

Erklärung: Diese Routine versucht einen Speicherblock an der 
angegebenen Adresse und von angegebener Größe zu 
reservieren. Bei Mißlingen wird in DO eine Null als 
Fehlermeldung zurückgegeben. Ansonsten die Adresse 
die zuvor auch übergeben wurde. 
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Routine: OPEN (D1,D2) (Modus,Filename) 

Library: dos.library 

Offset: -30 = -$1 e 

Parameter: Dl = Wert 1005 für Lesen der Daten von Disk 
Dl = Wert 1006 für Schreiben auf Disk 
D2 - Adresse des Filenames welcher mit Null endet 
Rückgabe: in DO = Fileadresse des Files auf Diskette oder Null, 
wenn File sich nicht auf Diskette befindet. 

Erklärung: Diese Routine gibt die Fileadresse zurück um über ihr 
weitere Funktionen des DOS steuern zu können (siehe 
READ). 


Routine: READ (D1,D2,D3) (Fileadresse,Datenpuffer,Länge) 

Library: dos.library 

Offset: -42 = -$2a 

Parameter: Dl = Adresse des Files auf Diskette. Liefert uns die 
Routine OPEN () in DO. 

D2 = Adresse des Datenpuffers, in dem die Daten ab¬ 
gelegt bzw. von dem sie gelesen werden sollen. 

D3 = Anzahl Bytes die geladen bzw. geschrieben wer¬ 
den sollen. 

Rückgabe: in DO = Anzahl Daten die tatsächlich gelesen bzw. ge¬ 
schrieben wurden. Normalerweise ist diese gleich der 
in Länge übergeben wurde. 

Erklärung: Diese Routine lädt eine bestimmte Anzahl Daten von 
Diskette in den Speicher bzw. vom Speicher auf die 
Diskette. 


Routine: CLOSE (Dl) (Fileadresse) 

Library: dos.library 

Offset: -36 = -$24 

Parameter: Dl = Fileadresse des Files, welches zuvor mit OPEN 
() geöffnet wurde. 

Erklärung: Diese Routine schließt ein File wieder, damit später 
auch ordnungsgemäß wieder darauf zugegriffen wer¬ 
den kann. 
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Routine: InitBitMap {A0,D0,D1,D2,D3) 

(BitMap,Depth,Width,Height,Memory) 

Parameter: AO = Zeiger auf BitMap-Struktur (Puffer von 40 Bytes) 

DO = Anzahl Bitmaps (Tiefe) 

Dl = Breite in Pixel - Achtung muß durch 16 teilbar 
sein 

D2 = Höhe der Grafik 

D3 = 1, dann wird auch gleich Speicher für PlanePtr 
reserviert und Adressen in Struktur eingetragen 
D3 - 0, kein Speicher wird für PlanePtr reserviert 
Rückgabe: DO = 0 , alles OK. 

DO = -1, Breite konnte nicht durch 16 geteilt werden 
DO = -2, Speicher für PlanePtr konnte nicht reserviert 
werden 

Erklärung: Initialisiert eine BitMap-Struktur mit den entsprechen¬ 
den Werten, genau wie die gleichnamige System-Rou¬ 
tine. Nur ist diese Routine schneller und außerdem 
kann man, wenn man D3 = 1 setzt, automatisch gleich 
Speicher für die BitMap-Pointer reservieren lassen, 
diese werden sogleich in die Struktur gespeichert. 


Routine: ClearBitMap (AO) (BitMap) 

Parameter: AO = Adresse der BitMap-Struktur 

Erklärung: Gibt den mit InitBitMap () reservierten Speicher der 
PlanePtr wieder zurück und löscht diese Zeiger da¬ 
nach. 


Routine: PrintlffPic (A0.A1 ,A2) (BitMap,IffPic.ColorTable) 

Parameter: AO = Adresse der BitMap-Struktur in welcher das Bild 
dargestellt werden soll. 

AI - Adresse des Iff-Bildes im Speicher. 

A2 = Adresse eines Puffers von 64 Bytes, in dem die 
Farben vom Iff-Pic gespeichert werden. 

Erklärung: Diese Routine stellt ein Iff-Bild in der gewünschten Bit- 
Map da. Dabei ist zu beachten, das die Breite, Höhe 
und Tiefe der BitMap-Struktur genausogroß sind wie 
das IFF-Bild. 
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Routine: GetBackMask (A0.A1) (BitMap.ObjektArgs) 

Parameter: AO = Zeiger auf BitMap-Struktur von welcher die 
Schattenmaske angelegt werden soll. 

AI = Anfangsadresse eines 32 Bytes großen Puffers. 
Er enthält die ObjektArgs-Struktur, welche im Kapitel 7 
beschrieben wird. 

Rückgabe: DO = 0 , Funktion erfolgreich ausgeführt. 

DO = -1, es konnte nicht genug Speicher für die Schat¬ 
tenmaske reserviert werden. 

Erklärung: Füllt die in AI übergebene ObjektArgs-Struktur mit den 
wichtigsten Werten und reserviert Speicher für die 
Schattenmaske (ShadowMask/CollMask). Diese Ob¬ 
jektArgs-Struktur kann dann ganz normal mit der Colli¬ 
sion () Routine (Kapitel 7) zur Collision mit anderen 
Objekten herangezogen werden. 

Tip: Wenn man die BitMap-Pointer und die Tiefe in der Bit¬ 

Map-Struktur vorher entsprechend manipuliert, kann 
man sogar Collisionen nur zwischen bestimmten Farb- 
registern zulassen. 


Routine: FreeBackMask (AI) (ObjektArgs) 

Parameter: AI = Adresse der ObjektArgs-Struktur (32 Bytes Puf¬ 
fer) in der die Schattenmaske für den Ftintergrund 
steht. 

Erklärung: Gibt den ShadowMask-Puffer, der mit der Routine 
"GetBackMask ()" für die Flintergrundmaske reserviert 
worden ist, wieder an das System zurück. 


Routine: InitRastPort (AI) (RastPort) 

Offset: -198 = -$c6 

Library: graphics.library 

Parameter: AI = Adresse von einem 100 Bytes großen Puffer. 
Erklärung: Diese Routine füllt die von uns angelegte RastPort- 
Struktur mit den nötigsten Startwerten. Diese Routine 
muß noch mit der BitMap-Struktur verbunden werden. 
Sonst kann kein Text dargestellt werden. 
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Routine: Text (String,RastPort,Count) (A0,A1,D0) 

Offset: -60 = -$3c 

Library: graphics.library 

Parameter: A0 = Anfangsadresse des Textes 

AI = Anfangsadresse der RastPort-Struktur 

DO = Anzahl der Buchstaben, die ausgegeben werden 

sollen 

Erklärung: Diese Routine gibt einen Text im angegebenen Rast- 
Port aus. 


Routine: TextLength (String,RastPort,Count) (A0,A1,D0) 

Offset: -54 = -$36 

Library: graphics.library 

Parameter: siehe Funktion Text (). 

Rückgabe: in DO = Länge des Textes in Pixeln. 

Erklärung: Diese Routine gibt für den angegebenen Text die Text¬ 
länge in Pixeln, im Datenregister DO zurück. 


Routine: Move (RastPort,X,Y) (AI,DO,Dl) 

Offset: -240 = -$f0 

Library: graphics.library 

Parameter: AI = Anfangsadresse der RastPort-Struktur 
DO - X-Position (horizontale) des Textes 
Dl = Y-Position (vertikale) des Textes 
Erklärung: Setzt den Grafikcursor auf die angegebenen Koordina¬ 
ten. Danach kann dann zum Beispiel mit der Funktion 
"Text 0", ab diesen Positionen Text ausgegeben wer¬ 
den. 
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Routine: PrintText (A0,A1,A6,D0,D1) 

(Text,RastPort,GraphicsBasis.X.Y) 

Parameter: AO = Zeiger auf Text, welcher mit Null endet 
AI = Adresse der RastPort-Struktur 
A6 - Grafikbasisadresse 
DO = X-Position des Textes 
Dl = Y-Position des Textes 
Erklärung: Gibt einen Text auf dem Bildschirm aus. 


Routine: FillBitMap (DO,AI) (Muster,BitMap) 

Parameter: DO = Füllmuster (16 Bit bzw. 1 Word groß), mit dem 
die BitMap gefüllt werden soll. 

AI = Adresse der BitMap-Struktur 

Erklärung: Diese Routine füllt eine Bitmap auf die AI zeigt, mit ei¬ 
nem Wordgroßen Muster, welches in DO übergeben 
wird. Die BitMap darf maximal die Ausmaße 1024 * 
1024 haben. 


Routine: InitColor (A0,A1) (ColorTable,Copperpuffer) 

Parameter: AO = Zeiger auf einen Puffer von 32 Words in dem die 
Farbwerte für die 32 Farbregister stehen. 

AI = Zeiger auf einen 128 Bytes großen Puffer, inner¬ 
halb der Copperliste, in dem die 32 Farben kopiert 
werden. 

Erklärung: Kopiert die 32 Farben, auf die ColorTable zeigt, in den 
128 Bytes großen Copperpuffer und erzeugt auch die 
dazu gehörigen MOVE-Befehle. 

Achtung! - Diese Routine beim erstenmal, vor dem ak¬ 
tivieren der Copperliste aufrufen. Damit die Farbregi¬ 
ster ($180 bis ...) schon einmal in der Copperliste ent¬ 
halten sind. Danach kann man diese Routine jederzeit 
wieder aufrufen und damit die Farben ändern. 
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Routine: 

Parameter: 


Erklärung: 

Achtung! 

Achtung! 


Routine: 

Parameter: 

Erklärung: 

Achtung! 


InitCopperMap (A0,A1,D0) 

(BitMap,Copperpuffer, Modus) 

AO - Zeiger auf BitMap-Struktur 

AI = Zeiger auf einen 60 Bytes großen Puffer, inner¬ 
halb der Copperliste, in dem die Register kopiert wer¬ 
den. 

DO = Grafik-Modus: 

= $8000 für Hires 

= $800 für HAM (Hold and Modify) 

= $400 für DuaiPlayField 

- $4 für Interlace 
= $0 für Normal 

Setzt die wichtigsten Startwerte zum aktivieren der 
Grafik. Es werden die Customregister BPL1MOD, 
BPL2MOD, BPLCONO und die BitMap-Pointer mit den 
entsprechenden Werten gefüllt. Diese Register werden 
dann in den 60 Bytes großen Puffer, innerhalb der 
Copperliste, kopiert. 

- siehe Achtung! bei InitColor (). 

- Wir verwenden in diesem Buch nur den Normalmo¬ 
dus, weil die anderen einer weiteren Erklärung bedür¬ 
fen. Sie sind für die Spieleprogrammierung nicht be¬ 
sonders geeignet. 


PlaySample (AO) (SoundTable) 

AO - Zeiger auf SoundTable-Struktur 
Spielt einen Sample auf dem gewünschten Kanal ein¬ 
mal ab. 

Diese Routine wartet nicht, bis der Sample zuende ge¬ 
spielt wurde. Man darf deswegen nicht zu schnell 
Samples auf dem selben Kanal hintereinander abspie¬ 
len. 
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Routine: CopyGrafik (AO) (BlitterArgs) 

Parameter: AO = Zeiger auf Blitterargumentenliste, welche alle nö¬ 
tigen Informationen für den Blitter enthält. 

Erklärung: Kopiert Daten von einem Quellbereich zu einem Zielbe¬ 
reich. 


Routine: CopyBitMap (A0.A1) (Quell-BitMap,Ziel-BitMap) 

Parameter: AO = Adresse der Quell-BitMap-Struktur, welche ver¬ 
schoben werden soll. 

Al - Adresse der Ziel-BitMap-Struktur, wo die Quell- 
BitMap-Struktur hinverschoben werden soll. 

Erklärung: Diese Routine kopiert die BitMap-Struktur auf die AO 
(Quelle) zeigt, in die BitMap-Struktur auf die AI (Ziel) 
zeigt. Die BitMap darf maximal 1024 Pixel breit und 
1024 Zeilen hoch sein. 


Routine: FillBitMap (DO,AI) (Muster,BitMap) 

Parameter: DO = Füllmuster (16 Bit bzw. 1 Word groß) mit dem die 
BitMap gefüllt werden soll. 

AI = Adresse der BitMap-Struktur, welche mit dem 
Muster gefüllt werden soll. 

Erklärung: Diese Routine füllt eine BitMap-Struktur auf die AI 
zeigt, mit einem 16-Bit großen Muster, welches im Da¬ 
tenregister DO übergeben wird. Die Ausmaße sind die 
selben wie bei CopyBitMap (). 


Routine: PrintObjekt (AO,po_bitmap) (ObjektArgs,BitMap) 

Parameter: AO - Adresse der ObjektArgs-Struktur, welche alle nö¬ 
tigen Parameter enthält. 

po_bitmap - Ist eine feste Variable im dazugehörigen 
Listing. Es enthält die Adresse der BitMap-Struktur in 
der das Objekt dargestellt werden soll. 

Achtung! - Das letzte Word einer Grafikzeile muß immer Null 
sein. 
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Achtung! - Wenn man einen Hintergrund zurückschreibt, ohne 
vorher einen gerettet zu haben, wird die Hintergrund¬ 
grafik trotzdem nicht zerstört. 


Routine: InitMask (A0,D0) (ObjektArgs,Bedingung) 

Parameter: AO = Adresse der ObjektArgs-Struktur 

DO = 0 - ShadowMask-Puffer wird nicht reserviert, 
sondern muß vorher schon reserviert worden sein. Es 
wird nur die Schattenmaske erzeugt und in diesem 
Puffer abgelegt. 

DO = 1 - ShadowMask-Puffer wird automatisch reser¬ 
viert und Schattenmaske dort abgelegt. 

DO = 2 - Genau wie "1", nur wird zusätzlich der Coll- 
Mask-Zeiger gleich dem ShadowMask-Zeiger gesetzt. 
Rückgabe: DO = 0, alles OK! 

DO = -1, nicht genug Speicher vorhanden. 

Erklärung: Initialisiert den ShadowMask-Puffer mit der entspre¬ 
chenden Schattenmaske. 


Routine: GetSaveBuffer (A0,A1) (ObjektArgs,BitMap) 

Parameter: AO = Anfangsadresse der ObjektArgs-Struktur 
Al - Anfangsadresse der BitMap-Struktur 
Rückgabe: DO = 0, dann ist alles in Ordnung! 

DO =-1, dann ist nicht genug Speicher vohanden! 

Erklärung: Reserviert Speicher für die Hintergrundspeicherung 
und schreibt die Anfangsadresse in den SaveBuffer 
-Offset. 


Routine: FreeMask (AO) (ObjektArgs) 

Parameter: AO = Anfangsadresse der ObjektArgs-Struktur 
Erklärung: Gibt den ShadowMask-Speicher, der mit InitMask () 
für die Schattenmaske reserviert worden ist, wieder 
zurück. 
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Routine: FreeSaveBuffer (A0,A1) (ObjektArgs,BitMap) 

Parameter: AO = Zeiger aut ObjektArgs-Struktur 
AI = Zeiger auf BitMap-Struktur 

Erklärung: Gibt den Speicher, auf den SaveBuffer zeigt, wieder 
frei. 


Routine: WriteBackgroundsOnly (printbobjabelle) (BOB-Tabelle) 
Parameter: printbobjabelle - Adresse der BOB-Tabelle, in der alle 
BOBs enthalten sind. 

Erklärung: Schreibt den Hintergrund von. allen BOBs an den alten 
Positionen in die BitMap zurück. 


Routine: ReadBackgroundsOnly (printbobjabelle) (BOB-Tabelle) 
Parameter: siehe WriteBackgroundsOnly () 

Erklärung: Kopiert den Hintergrund von allen BOBs ab den neuen 
Positionen aus der BitMap in den SaveBuffer-Speicher. 


Routine: WriteBobsOnly (printbobjabelle) (BOB-Tabelle) 

Parameter: siehe WriteBackgroundsOnly () 

Erklärung: Kopiert die BOB-Imagedaten von allen BOBs in die Bit- 
Map (Hintergrund). 


Routine: Collision (A0,A1) (ObjektArgsl ,ObjektArgs2) 

Parameter: AO = Adresse der ObjektArgs-Struktur von BOB 1 
AI = Adresse der ObjektArgs-Struktur von BOB 2 
Rückgabe: in DO = 0, dann keine Collision 

DO = 1, dann liegt eine Collision vor 

Erklärung: Diese Routine testet eine Collision zwischen zwei Ob¬ 
jekten. Wenn eine Collision vorliegt, wird in DO eine 1 
zurückgegeben, andernfalls eine 0. Testet auch Colli¬ 
sionen zwischen ausgeschalteten und sichtbaren 
BOBs - ist nicht von einer BitMap abhängig. 
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Programme der Diskette 


Auf der beiliegenden Diskette sind alle in diesem Buch aufgeführ¬ 
ten Programme, Listings und Routinen. Sie befinden sich in drei 
Schubladen (Directories), welche sich wie folgt aufteilen: 

- Listings 

- Programme 

- Routinen 

In der Schublade Listings sind, wie der Name schon sagt, alle im 
Buch enthaltenen fünf Listings. In der Schublade Programme sind 
alle zu den Listings gehörenden lauffähigen Programme. Diese 
können im CLI gestartet werden. Die Schublade Routinen enthält 
alle Listings, zu den im Buch beschriebenen Routinen. 
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Spiele-Programmierung 
in Assembler 

Wie man realistische Spiele selbst programmiert 


WICHTIGE MERKMALE: 

• Dank der hervorragenden grafischen Eigenschaften des Amiga kann 
man selbst Spiele programmieren, die absolut realistisch wirken. Das 
Buch - von vielen Programmier-Freaks erwartet - enthält unter ande¬ 
rem eine Sammlung von Grafik-Routinen, die über bestimmte Parame¬ 
ter die Hardware ansteuern. Deshalb sind keine speziellen Hardware- 
Kenntnisse erforderlich. 

• Das Programmieren von Spielen wird ebenso leicht gemacht wie das 
Programmieren mit System-Routinen, allerdings mit einem viel größe¬ 
ren Geschwindigkeitsvorteil. Vom Buch profitieren nicht nur Profis, son¬ 
dern auch Amateure. 

• Alle im Buch enthaltenen Routinen stammen aus dem Public Domain- 
Bereich und können daher frei in eigene Programme eingebaut werden. 


AUS DEM INHALT: 

• Interrupts: 

- Copper-IRQ 

- Raster-IRQ 

• Speicherverwaltung: 

- unbestimmter Speicher 

- bestimmter Speicher 

• DOS-System: 

- Daten laden 

- Daten abspeichern 

• Darstellung von Bildern: 

- Bitmap 

- IFF-Bilder laden 

- der RastPort 

- Textausgabe 

- der Copper 


• Joystick-Abfrage 

• Geräuscherzeugung 

• Grafik-Hardwareprogrammie¬ 
rung: 

- der Blitter 

- BOBs - Blitter-Objekte 

- IFF-Brushes umwandeln 

- Kollisionen zwischen BOBs 

• Konzeptablauf eines Spiels 
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